UObject Classes: 

Class 

TObject 

TCollection 

TList 

TArray 

TString 

TFile 
TScanner 

TListScanner 

TArrayScanner 

TStringScanner 
TFileScanner 



Fields 

size dynStart holeStart holeSize holeStd 

recordBytes 

path password scanners 

collection position increment scanDone atEnd 



actual 

accesses ref num error 



UDraw Classes: 



Class 

TDtject 
TArea 
TPad 



TBranchArea 



Fields 

(defined in UObject) 

innerRect outerRect parentBranch 

port viewedLRect visLRect availLRect scrollOffset 

origin cdOffset clippedRect padRes vieuiedRes 

scaled scaleFactor zoomP actor 
arrangement elderFirst resizability elderChild 

youngerChild 
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UABC Classes: 



Class 

TObJect 
TProcess 
TDocDirectory 
TDocflanager 

TClipboard 

TCommand 

TCutCopyCommand 
TPasteConiTiand 
TImage 
TView 



TPaginatedView 
TPageView 
THeading 

TPrintflanager 



TSelection 

TArea 

TWindoui 



TDialogBox 

TBand 

TSideBand 
TPanel 



TPad 

TPane 

TttarginPad 

TBodyPad 

TScroller 

TScrollBar 

TMenuBar 



Fields 

(defined in UObJect) 

(global variables) 

window classWorld 

files dataSegment docHeap window pendingNote 

openedAsTool 
hasView hasPicture hasUniversalText haslcon 

cuttingTool cuttingProcessID clipCopy 
cmdNumber image undoable doing revelation 

unHiliteBefore hiliteAfter 
isCut 

extentLRect view allowMouseOutside 

panel clickLPt printManager res screenPad 

fitPagesPerfectly isPrintable isMainView 

stdScroll scrollPastEnd 
unpaginatedView pageSize workinglnMargins 

printManager pageAlignment offsetPromAlignment 
oddOnly evenOnly minPage maxPage 

view pageView breaks pageflargins headings 

oanEditPages layoutDialogBox frameBody paperLRect 
printableLRect contentLRect printerMetrics 
pageRiseOirection 

window panel view kind anchorLPt currLPt boundLRect 
coSelection canCrossPanels 

(defined in UDratf) 

panels panelTree dialogBox selectPanel undoSelPanel 
clickPanel undoClickPanel selectWindow 
undoSelWindow wmgrlD isResizable believeWmgr 
maxInnerSize changes lastCmd printerMetrics 
pgSzOK pgRgOK panelToPrint objectToFree 

keyResponse menuResponse downlnflainWindowResponse 
freeOnDismissal 

window panes panel scroller scrollDir 

topOrLeft 

window panes currentView view paginatedView selection 
undoSelection bands scrollBars abilities 
minlnnerOiagonal resizeBranch zoomed zoomFactor 
previewMode lastClick contentRect tlSideBandSize 
brSideBandSize deletedSplits 

(defined in UDratr) 

currentView panel 

view pageNumber bodyPad 

marginPad nonNullBody 

scrollBar band sBoxlD 

firstBox isVisible 

isLoaded mapping numMenus numCommands 
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UUnivText Classes: 



Class 

TObJect 

TTKUnivText 

TTKReadUnivText 
TTKWriteUnivText 



Fields 



(defined in UObJect) 

paragraphDescriptor characterDescriptor maxDataSize 

data itsOurTString 
buffer columnCount dataBeforelab 



UText Classes: 



Class Fields 

TObject 

TParaFormat 



TCoUection 
TString 

TParagraph 
TEditPara 
TLinelnfo 
TImage 

TParalmage 

TTextlmage 



TViev 

TTextView 
TStyleSheet 
TTextRange 
TText 
TTKtfriteUnivText 

TTextWriteUnivText 

TSelection 

TTextSelection 

TInsertionPoint 

TOneParaSelection 
TMultiParaSelection 
TVomnand 

TClearTextCmd 

TStyleCmd 



TCutCopyCommand 
TTextCutCopy 

TPasteCotmand 
TTextPaste 

TTypingCmd 



(defined in UObJect J 

dfltTStyle wordwrap quad firstlndent left Indent 

rightlndent spaceAbovePara spaceBelowPara 

lineSpacing tabs refCount permanent styleSheet 
(defined in UObJect) 
(defined in UObJect) 
typeStyles 

bsCount nestLevel format beingPiltered images 
valid startLP lastDrawnLP endLP lineLRect lineAscent 
(defined in UA6C) 
paragraph height lineList changed tickCount startLP 

endLP text Image wasOffset 
text imageList tickCount growsDynamically minHeight 

formerBottom updateLRect f irstLinePixel 

useFirstPixel firstlndex startLP endLP prevTxtlmg 

nextTxtlmg headTxtlmg tailTxtlmg 
(defined in UABC) 
textlmage valid 
formats 

firstPara firstlndex lastPara lastlndex lastLP 
paragraphs styleSheet txtlmgList 
(defined in UUnivText) 
textSelection currlndex currPara currLP 

currStylelndex currTStyles 
(defined in UABC) 
textlmage textRange isWordSelection isParaSelection 

viewTick amTyping currTypeStyle 
typingCmd styleCmdNumber newestLP justReturned 

nextHighTransit nextTransitTime 
anchorBegin anchorFnd 

anchorPara anchorlndex anchorBegin anchorEnd 
(defined in UABC) 
savedText text 
text textSelection firstFiltParalndex 

lastFiltParalndex f iltFirstLP f iltLastLP 

currFilteredPara f ilteredStyles 
(defined in UABC) 
text 

(defined in UABC) 
savedText pasteRange text origlsPara origlsWord 

clipIsPara 
savedText text newCharCount newParaCount typingRange 

otherlnsPts 
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UDiaiog Classes: 



Class 
TObject 
TArea 
TVindow 

TDialogBox 



Fields 



(defined in UObJect) 
(defined in UDraw) 
(defined in UABC) 
(defined in UABC) 
TDialogWindow controlPanel dialogView mainDialog 

TDialogDesignWindow hostwindow hoslDialogView frofiCialogBox 
TPageDesignWindow hostView layoutPanel 
(defined in (jm:j 
layoutBox legend shouldDravLegend 
(defined in IMBC) 

masterLegend currentLegend topToBaseline borders 
(defined in umcj 
rootDialog nonDialogExtent currentDialoglmage 

defaultButton hitButton isShowing paintFreeBoxes 

paintSense startedPainting styleSheet mouselsDouin 

magnetCursor 
viewBeingPlanned allowSketching retainPickedBox 

currentLayoutBox 



TJmage 
TTitleTab 
THeading 

TLegendHeading 
TView 

TDialogView 



TPlannerView 



TPagePlannerView 
TDialoQlmage 
TLegend 
TRectlmage 
TlmageWithlD 
TDialog 



parent isActive isEditable withID 

location paragraph wouldBeDraggable usesSysFont 

penState 

children id idNumber 

stringKey 



TSelection 

TFranjeSelection 

TLayPickSelection 

TEditLegendSelection 

TCamand 

TLayMoveCmd 
TPrintManager 

TStdPrintManager 



TPageStatusDialog currentHeading oddEvenCluster minPageFrame 

maxPageFrame alignCluster unitsCluster 
marginTitle leftCluster topCluster rightCluster 
bottomCluster 
cmdNumber minWidth isHighlighted nextSameSizedButton 

legend DuttonMetrics 
isSelected rectlmage legend 
location hitBox hiLitBox lastBox 
textDialoglmage prompt borders drauiInputLRect 
drawHitLRect maxInputChars inputTypeStyle 
picture boxAtCreation 
textlmage wouldBeDraggable refCount 
manipulee titlelab suppressDrawingKanipulee 
isResizable borders wouldflakeSelection 
isDraggable shouldFrame hasDraggee 
TLegendLayoutBox textDialoglmage 
TButtonLayoutBox nextSameSizedBox oldLegendTopLeft 
TPageLayoutBox 

TLgHdngLayoutBox legendLayoutBox 



TButton 

TCheckbox 

TCluster 

TInputFrame 

TPicObject 

TTextDialoglmage 

TLayoutBox 



(defined in UABC) 

inputFrame 

layoutBox 

legendLayoutBox hostLegend textDialoglmage 

suppressHost tripleClick 
(defined in UABC) 
layoutBox hOffset vOffset 
(defined in UABC) 
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UNIT UOtjcct: 

{CopyriQht 1985, 1984, Apple Conputar, Inc.} 

t Impl WMntat ion Is in U0BJECT2-5--4} 

{tSETC Islntrinsie :• TRUE} 

(JIFC 1$ Intrinsic} 
INTRINSIC; 
(ttNOC) -. 

{$SETC ErrsToFil* :- TRUE } 

tlFC ErrsToFil*} 
[$E*} 



•} 



{$E ERRS. TEXT} 



{• 



:$ENOC} 

{NOTE: The implanentat ion of class TObJact is qulta obscura bacausa this Is actually systai»-typa coda} 

(Sagments: SqABC in i( t ial iza) , SgABCdatCa structuras), SgABCdbg} 

{ 



CLASSES- 

TObjact 

TCollact ion 

TList 
TArray 

TStrlng 
TFila 
TScannar 



SPECIFICAUY IN UObJact 
— VAR lABLES 



COmENTS 



TListScanner 
TArrayScannar 
TStringScannar 
TFll aScannar 



siza dynOffsat hoIaStart holaSiza hoIaStd 
racordBytas 



path scannars 

col taction position inc nw a n t scanOona atEnd 



arror actual 
accassas rafnua 



Indaxad accass (At, Ins At, 
Each) 

— contains objact handles 

— contains racords (aven 
langths) 

— contains characters 

— disk fila (Exists, Rename) 
saquantial accass (Scan, 
Insert) 

— an object at a time 

— a record at a time 

— a character at a time (Xfer) 

— through a uhole TFile 



.« KEY — > 



CLASSES- 

$ TObject 

$ TCol I ect ion 



........ IN ALL DATA STRUCTURE UNITS -—.—«. 

in UObject Q - in UHuga • in UDb 'in UHac 
VAR IAa.ES 



COMMENTS 



TList 

TLinkList 
THugeL ist 

TArray 

THugeArray 
TString 
TFlle 
TDb 

TDbF il e 

TRsFile 

TObRsF il e 

» TMcRsFile 



size dynOffset holeStart holaSiza holeStd 



head tail 
hugeArray 
recortffiytes 



ixBlockLength blocks 



T Scanner 



MinBlockLength 
path scanners 



file rScanOesc 

endlncrement firstKey lastKey scanners 

dbFile 

??? 



collection position incrtaient scanOone atEnd 



$ TListScanner 
9 TLnkLst Scanner 

<l THgeLstScanner 
S TArrayScannar 

THgeArrScanner 
$ TStringScannar 
$ TFileScanner 
TRsScanner 
TObScanner 

TDbF iScanner 
TRsFiScanner 

TDbRsF iScanner 
• TMcRsF iScanner 



a TLink 



scanL ink 
blkArrScanner 

cacheBlock cache Indtx 
error actual 
accesses re f nun 
uhichUay key buffer 
error 
rScanOesc 

dbRacSeq dbRecSize 
??? 



eleiaent next 



indexed access (At, InsAt, 
Each) 

— contains object handles 

— stored in TLinks 

— stored in linked blocks 

— contains records (even 
lengths) 

— impl. uith linked blocks 

— contains characters 

— disk file (Exists, Rename) 

— contains keyed records 

— key is a PAOC/String 

— key is a LONG INT (Suapln) 

— iiqplemented uith a 
TDbF il e 

— impl emented in the Mac 
ROM 

sequential access (Scan, 
Insert) 

— an object at a time 



~ a record at a time 

— through a THugeArray 

— a character at a time (Xfer) 

— through a uhole TFile 

— through a single resource 

— a key at a time 

— through a TDbFile 

— a resource at a t ime 

— through a TDbRsF ile 

— implemented in the Mac 
ROM 

— has one element of a TLinkList 



INTERFACE 

{SSETC LibraryVersion : ■ 50 } { 10 • 1. libraries; 15 • 1. 5 libraries; 20 



(SSETC coapatibleLists : • FALSE } 

USES 

Unit St d, 
UnitHz, 



29 - V12 Libraries, 50 • V15. 0* 1 ibraries } 



Peps i, 



)rary Vers ion 
LIBTK/Passud } Passud. 



($U LIBOS/SysCall } SysCall, 
{$IFC LibraryVersion > 20} 

f$U LI 
fSENDC) 
{$IFC LibraryVersion <- 20} 

{$U UClascal} UClascal, 

{$£LSEC} ($IFC LibraryVersion < 50} 

{$U LIBTK/UClascal} UClascal, 

{$£LSEC} 

f$U LIBPLAIClascal} UClascal, 

{SENCiC} 
ISENDC} 



{Needed for interface} 
{Needed for interface} 
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UDBJECT. Torr 



Page 



111 

112 

lis 

114 

lis 

116 
117 
118 
119 
120 
121 
122 
125 
124 
12S 
126 
127 
128 
129 
150 
151 
152 
155 
154 
155 
156 
157 
158 
159 
140 
141 
142 
145 
144 
14S 
146 
147 
148 
149 
ISO 
ISl 
1S2 
155 
154 
155 
156 
157 
158 
159 
160 
161 
162 
165 
164 
165 
166 
167 
168 
169 
170 
171 
172 
175 
174 
175 
176 
177 
178 
179 
180 
181 
182 
185 
184 
185 
186 
187 
188 
189 
190 
191 
192 
195 
194 
195 
196 
197 
198 
199 
200 
201 
202 
205 
204 
205 
206 
207 
208 
209 
210 
211 
212 
215 
214 
215 
216 
217 
218 
219 
220 



[ Th« rwxt units n*«d«d to find out uh*r» tha printer is locatod, fro* partMtar 
so u* can tall Pasl ib uhara it is. (Naadad for dabuggar Output Radiract. ) ] 
PiOacl, 



ry. 



l$IFC LibraryVtrsloo > 10] 

■ {$U LIBPL/PasI ibCali] Pasl ibCall, 
^^SU LIBPL/PPasLibc ) PPasLibC, 



(SUiMint} 



HUInt: 



ffcETC fObgOK :• TRUEjf FALSE] foverrlda UnitStd to tast Tool Kit] 
i^TC fSymOK :■ TRUEJIFALSE} (ovarrida UnitStd to tast Tool Kit} 

{$SETC fObgOblact :• fDbgOK 
fSSETC fRngObjtct :■ fObgOK* 
{$SETC fSyiaObJtct :- fSyiCK; 

($S£TC fOabugMtthods :- fDbgObjact] {includa dabugging aathods in tha compilation] 



{SSETC fChackHaap 
fSSETC nraca 
{SSETC ftlaxTraca 

{$S£TC rChacklndicas 

CONST 

prcsLdsn 
prcsDsBytas 

HaxBraaks 

outputRMargin 
arlntamal 



fObgOb 
fDbgOb 
ffraca 



lact] [if V#M al 
jact] (if VAR al 
AND FALSE] (if 



so taia, chack haap] 

so trua, traca antrias/axits] 

TRUE traca antrias/axits on Minor procaduras too] 



- fObgObJact] (if VAR also trua, chack subscripts] 



MAXLINT 



• 1; 

- 15000; 

- 10; 

• 85; 

- 4200; 

- $7FFFFFFF; 



{Idsn for tha procass data sagmant] 
dafault haap siza for a procass data sa g aa n t] 



{Stolan from 1 ist of arrors in UABC for nauHaap] 



TYPE 



[Al lasas naadad to co«pila QuickDraw] 

Ptr • tLONGINT; 
ProcPtr "Ptr, 
Handla - TPtr 

{Al iasas for cowao n l y usad types] 

SB ■ STRINGf8l; 
S255 - STRING! 255]; 

TFilaPath - S255; {Increased from 66 because of the neu hierarchical file system; 

corresponds to Pathname in SYSCALL] 
TFilePart - STRING;[52]; {length of each level in a pathname; corresponds to e name in SYSCALL] 
TPassuord ■ TFilePart; 



THeap • Ptr, 
TCI ass - Ptr, 



fal ias for THz in UnitHzJ 
{•1 



ias for TPSlicaTable in UClascal] 



By 
TP 



String > tS255: 



Tp INTEGER • TINTEGER; 
TpLONGINT - tLONGINT; 



TAuthorNana 
TClassName 



STRINGf52]; 
STRINGIB]; 



(Alias for TUorld in IW>LEriENTAT ION] 
OF name, si 



ize, author, & version information]; 
.(^ TCI ass — tha pointer in each Clascal object]- 
OF PACKED ARRAY f 1. . SIZEOFfTAuthorNama)) OF CHAR); 
OF PACKED ARRAY [ 1. • S 1ZE0F( TCI assNama) 1 OF CHAR}; 



TClassWorld » RECORD 
infRecs: TArray 
d assas: TArray 

authors: TArray 
al iasas: TArray 
END; 

TEnumAccesses • f fRead, fWrita, fAppend, fPrivate); {not allowing global_rafnum at this time] 

TAccasses ■ SET OF TEnumAccesses; 

Tionode - (fAbsolute. fRelativa, fSequential); 

xReadUrite - (xRead, xWrite); 

SizeOfNunber - 1. . 4; 

TScanOiraction ■ (scanFoiuard, scanBackuard); 

TConvRasult - (cvValid, cvNoNumber, cvBadNuabar. cvOverflow); 

{Classes} 

TObject « SUBCLASS OF NIL 

{Creation and Destruction] 
FUNCTION TOblect.CREATEf object: TObject: heap: THeap): 
PROCEDURE T(»> jact. Becoffle( object: TObject); 
FUNCTION TObject. Class: TCI ass; 

FUNCTION TU) jact. CI oneObject( haap: THeap): TObject; 
FUNCTION TObject. CI one( heap: THeap): TObject; DEFAULT; 
PROCEDURE TObject. FreeOb jact; DEFAULT; 
PROCEDURE TObject. Free; DEFAULT; 
FUNCTION TObject. Heap: THeap; 
FUNCTION TObject. HeapBytas: INTEGER; 
PROCEDURE TObject. Read(s: TSt r ingScanner) : 
PROCEDURE TObject. Urite(s: TSt r ingScanner); 



TObject; ABSTRACT; 

SELF becomes obj and former SELF is freed] 

its class pointer] 

clones just the object, not its dependents] 
'clones the object and its known dependents] 
■frees just the object, not its dependents] 

frees tha object and its known dependents] 
[uhich heap it is in] 

number of bytes occupied in that heap] 

reads the object & its known dependents] 

writes tha object & its known dependents] 



{Debugging] 

(SIFC fDebugtIethods] 

PROCEDURE TObject. Fields( PROCEDURE FieldfnamaAndTypa: S255)); DEFAULT; [S* 

PROCEDURE TObject. DabugCnumLavals: INTEGER; memberTypeStr. S255); DEFAULT; 



{See end of file for comment] 



{writes an object down to numLavels: 

nunLevelS"0 -> write only class; 
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221 
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241 
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244 
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247 
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255 
254 
255 
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261 
262 
265 
264 
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266 
267 
268 
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515 
516 
517 
518 
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520 
521 
522 
525 
524 
525 
526 
527 
528 
329 
330 



(SENOC) 



nuKLavml s>l 
•tc } 



■> writ* class, non-Ob J«ct fields, and class of ObJ*ct fialds 



{Version Convarsion} 
PROCEDURE T0b1aet.Convart(froiiiVer$ Ion: Byta): 
FUNCTION TObJact. JoinClass(nauClass: TCI ass): 

END: 



[Overrida 
robjact; 



to finish conversion fro« an old version} 
{Called for you by version conversionj 



TColIecHeader - RECORD 



cta^sPtr 
s ize: 
dynStart: 
holeStart: 
holes ize: 
hoi est d: 
END: 



TCl ass; 

LONCINT; 
INTEGER; 
INTEGER; 
INTEGER; 
INTEGER: 



number of real elements, not counting the hole} 

bytes from the class ptr to the dynamic data; MAX INT if none allowed} 

■ at the beginning, size - at the end; tlAXINT - none alloued} 

measured in HemberBytes units] 

if the holeSlze goes to 0, how much to grow the collection by} 



RECORD 



TFastString 

header 

ch: 

END; 

TPFastString ■ TTFastStrlng; 
THFastString ■ TTPFastString; 



TColIecHeader 
PACKED ARRAYll 



{only access ch{ i] when hole is at end & TString is not subclassed} 



52740] OF CHAR; 



TArrayHaader > 
cl assPt r 
size: 
dynStart: 
holeStart: 
hoi eS ize: 
hoi est d: 
recordBytes: 



RECORD 

TCl ass; 

LONG INT; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 



number of real elements, not counting the hole) 

bytes from the class ptr to the dynamic data) 

means hole at the beginning, size means hole 

measured in nemberSytes units) 

if the holeSize goes to 0, how much to grow the collection by) 



at the end} 



TCol lection • SUOaASS OF TObject 



{Variables} 
size: 
dynStart: 
holeStart: 
hoi eS ize: 
hoi eStd: 



LONG INT; 
INTEGER; 
INTEGER: 
INTEGER; 
INTEGER; 



nunber of real elements, not counting the hole} 

bytes from the class ptr to the dynamic data} 

means hole at the beginning, size means hole at the end} 

measured in HemberBytes units) 

if the holeSlze goes to 0, how much to grow the collection by) 



{The field "size" is a LONGINT for the benefit of huge collections 1 Ike remote data bases. 
It is always in the INTEGER range for non-subclassed TLlsts, TArrays, and TStrings. 

The field "dynStart" is an offset from Handl e{ col I ect ion) T and tells where the dynamic part 
of the data is stored, if any. This convention allows subclasses to add fields. 

When editing a collection, there may be an unused "hole" somewhere in the storage block. The 
fields "holeStart" and "holeSize" specify (in member-sized units) the starting index of the 
hole and the length of the hole. Uhen holeSize is zero, there is no hole. If members are 
added uhen there is no hole, the storage block is expanded to allow for at least another 
"holeStd" members. 



so that 
ocat ion. 



CREATE has an argument that lets the initial collection have e hole at the end, 
Ins- methods can be called to initialize the collection without any storage ail 

StartEdit sets holeStd to Its argiMient, which forces subsequent edit methods to leave intact 
any hole they might form StopEdit squeezes out the hole and sets holeStd to zero, which 
forces subsequent edit methods that get called with no hole to squeeze out any hole they may form. 
TNjs, every StartEdit that has a nonzero argument should be terminated by a call on StopEdit to 
save space. } 

{Creation and Destruction} 
FUNCTION TCol 1 ect ion. CREATEC object: TObject; heap: THeap; initialSlack: INTEGER): TCoIlection; 
FUNCTION TCol 1 ect loaClone( heap: THeap): TObject; OVERRIDE; 

{Attributes} 

FUNCTION TCoIlection. HemberBytes: INTEGER: ABSTRACT; 

FUNCTION TCol 1 ect ion. Equal s( otherCol 1 ect ion: TCoIlection): BOOLEAN; 



{Slack control) 
PROCEDURE TCollectloaStartEdit(uithS]ack: 
PROCEDURE TCol 1 ect ioa StopEd it: 

{Generic Inserts) 



INTEGER): 



PROCEDURE TCol 1 ect ioa InsHanyAtd: LONGINT; otherCol lection: TCoIlection; index, howHany: LONGINT); 
PROCEDURE TCoIlection. InsNullsAt{i, howHany: LONGINT): 

(• BEGIN CONCEPTUAL HETHODS (parameter types differ in subclasses; sometimes extra parameters required) 

{Enumerate meebers} , . _^ _»,, ^^.^^„,^. 

PROCEDURE TCol 1 ect ioa Each( PROCEDURE DoToHember(m«*er. THemberU, CONCEPTUAL- 
FUNCTION TCol 1 ect ioa Pos( after LONGINT: member 'imafr): LONGINT; CONCEPTUAL; 
FUNCTION TCoIlection. Scanner. TScenner. CONCEPTUAL; {c. ScannerFrom(-MaxLInt, scanForuard)} 

FUNCTION TColIectloaScannerFrom(firstToScan: LONGINT; scanDlrection: TScanDirection) 

: TScanner, CONCEPTUAL; 

{Inspect members) 

FUNCTION TColIectioa At(i: LONGINT): "THefflber^; CONCEPTUAL: 

FUNCTION TColIectioa First: "THeinber"; CONCEPTUAL; 

FUNCTION TColIectioa Last: "THember"; CONCEPTUAL: 

FUNCT ION TCol 1 ect ioa ManyAt ( i, howHany: LONG INT) : " TCol 1 ect ion" 

{ Insert members) 
PROCEDURE TCoIl 



CONCEPTUAL: 



ect ioa Ins At ( 1: LONGINT; member. "THember"); CONCEPTUAL; 
PROCEOOrE TColIectioa In$First( member "THember"): CONCEPTUAL: 
PROCEDURE TColIectioa In$Last( member "THember"); CONCEPTUAL; 



{Delete members} 
PROCEDURE TColIectioa Del All; CONCEPTUAL; _ .. . 
PROCEDURE TColIectioa Del At(i: LONGINT); CONCEPTUAL; 
PROCEDURE TCol 1 ect ion. Del F irst; CONCEPTUAL; 

PROCEDURE TColIectioa Del Last; CONCEPTUAL; _^ ^„,.... 

PR(WEDl«E TCol 1 ect ioa Del HanyAt ( 1, howHany: LONG INT) ; CONCEPTUAL: 



(Debugging} 
{$IFC fOabug^tethods} 
PROCEDURE TList. Dibi 
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r — 

551 — , 

552 — (Chang* MMbar} 

555— PROCEDURE TCoU act ioa Put At (i: LONGINT; aaabar "TnaAer"); CONCEPTUAL: 

554 ~ 

555 — END CONCEPTUAL METHODS •) 

556 ~ 

557— (Private Hthods — to ba call ad by subclassas only!!!} 

558 — f$lFC fRngObjact} 

559— PROCEDURE TColl act ioaChacklndaxCindax: LONGINT); 

540 — - WENDC} 

541— FUNCTION TCoIIact ion. AddrHembar( i; LONGINT): LONGINT; {Tha address is only val id anawttarily} 

542— PMCEDURE TCol taction. CopvHanbarsCdstAddr. start Index, houHany: LONGINT); 

545— ' PROCEDURE TCol taction. Edit At( at Index: LONGINT; deltaMenbers: INTEGER); (Transfers no data) 

544— ^ PROCEDURE TCoIl act ion. Res IzaCoI 1 ( MambersPI usHol e: INTEGER); (Resizes at end, no fields changed) 

545— PROCEDURE TCollactioaShiftColUaftarSrcIndax, aftarOst Index, houtlany: INTEGER); (No fialisr^ changed} 

546 — 

547 — END; 

548 — 

549 — TList - SUBCLASS OF TCoIIact ion 

550 — 

551 — (variables} 

552 — 

555 — (Craatton and Destruction} 

554 — FUNCTION TList. CREATE( object: TObJect; heap: THeap: init iaISlack: INTEGER): TList; 

555 — FUNCTION TList. CI one( heap: THeap): TObject; OVERRIDE; 

556— PROCEDURE TList. Free; OVERRIDE; 

557 — 

558 — 

560 — 'PROCEDURE TList. DebugCnumLevels: INTEGER; neinberTypeStr S255): OVERRIDE; 

561 — ( nuaLevelsoQ print Just class of list; 

562 — 1 also print size of list; 

565 — 2 also print conpacted list of meabar classes 

564 — >«5 print class, size, and call DebugC nuMLevel s-1) on aeabers 

565-1 -i#v / 

566— PRXEDURE TList. Debugflenbers; 

567 — (SENOC) 

568 — 

569 — (Attributes} 

570— FUNCTION TList. MewberBytes: INTEGER; OVERRIDE: 

571 — 

572 — (Enunerata Members} 

575 — PROCEDURE TList. Each( PROCEDURE DoToObJactC object; TObJect)); DEFAULT; 

574— FUNCTION TList. Pos( after LONGINT; object: TObJect): LONGINT; 

575 — FUNCTION TList. Scanner TListScanner 

576— FUNCTION TList. Scannerfroii< first T ©Scare LONGINT; acanO tract ion: TScanDirection) 

577 — : TListScanner, DEFAULT; 

578 — 

579 — (Inspect Meabers} 

580— FUNCTION TList. At( i: LONGINT): TObject; DEFAULT; 

581 — FUNCTION TList. First: TObject; DEFAULT; 

582— FUNCTION TList. Last: TObJect; DEFAULT; 

585— FUNCTION TList. hanyAtC i, houHany: LONGINT): TList; DEFAULT; 

584 — 

585 — ( Insert iiefflbers} 

586— PROCEDURE TList. Ins At ( i: LONGINT; object: TObJect); DEFAULT; 

587 — PROCEDURE TList. InsFir$t( object: TObJect); 

588 — PROCEDURE TList. InsLast( object: TObJect); 

589 — 

590— (Delete neabers} 

591— PROCEDURE TList. Dal AlKfreeOId: BOOLEAN); DEFAULT; 

592— PROCEDURE TList. Del At(i: LONGINT; freeOld: BOOLEAN); DEFAULT; 
595— PROCEDURE TList, Del Fir$t(free01d: BOOLEAN); 

594 — PROCEDURE TList. Del Last( freeOld BOOLEAN); 

595— PRXEDimE TList. Del HanyAt(i, houHany: LONGINT; freeOld: BOOLEAN); OEFMJLT; 

596— PROCEDURE TList. Del Ob Jectfobject: TObJect; freeOld: BOOLEAN); 

597— FUNCTION TList. PopLast: TObJect; 

598 — 

599 — (Change aamber} 

400— PROCEDURE TList. PutAt( i: LONGINT; object: TObJect; freeOld: BOOLEAN); DEFAULT; 

401 — 

402 — END; 
405 — 

404 — TArray ■ SUBCLASS OF TCollection (— yARNir«l The Ptrs below become invalid if the heap compacts!!!} 

405 — 

406 — (Variables} 

407 — recordBytes: INTEGER; 

408 — 

409 — (Creation and Destruction} 

410— FIWCTION TArrey.CREATEl object: TObject; heap: THeap; initialSlack, bytesPerRecord: INTEffiR}: TArray; 

411 — 

412 — (Attributes} 

415 — FUNCTION TArray. NeaberSytes: INTEGER; OVERRIDE; 

414 — 

415 — (Enumerate nembers} 

416— PROCEDURE TArrey.EacK PROCEDURE DoToRecord(pRecord: Ptr)); DEFAULT; 

417— FimCTION TArray. Pos( after. LONGINT; pRecord: Ptr): LONGINT; 
418 — FUNCTION TArray. Scanner. TArrayScanner 

419— FUNCTION TArray. Scannerfrom( firstToScare LONGINT; scanOirect ion: TScanDirection) 

420 — : TArrayScanner DEFAULT; 

421 — 

422 — ( Inspect members} 

425— FUNCTION TArray. At ( i: LONGINT): Ptr DEFAULT; 

424— FUNCTION TArray. First: Ptr. , 

425— PROCEDURE TArray. Get At( i: LONGINT; pRecord Ptr); DEFAW-T; (Sort of: pRecordT : - SELF, KitC i) T) 

426— FWCTION TArray. Last: Ptr, 

427— FUNCTION TArray. HanyAt( i. houHany: LONGINT): TArray; DEFAULT; 

428 — 

429 — (Insert members} 

450— PROCEDURE TArray. InsAtC i: LONGINT; pRecord Ptr); DEFAULT; 

451 — PROCEDURE TArray. InsFir$t( pRecord Ptr); 

452 — PROCEDURE TArray. In$Last( pRecord Ptr); 
455 — 

454 — (Delete members} 

455— PROCEDURE TArray. Del All; DEFAULT; 

456— PROCEDURE TArray. Del At (i: LONGINT); IXFAULT; 

457— PROCEIXJRE TArray. Del First; 

458— PROCEDURE TArray. Del Last; 

459— PROCEDURE TArray. Del ManyAt(i, houMany: LONGINT); DEFAULT; 
440 — 
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442-- %oSoURE rirray. PutAtC 1: LONCINT; pR»cord: Ptr): DEFAULT; 



~\ 



{QuickOrau} 

PROCEDURE TSt ring. Or»u(i; LONG INT; houMany: INTEGER): 

FIMCTION TStrlnaUidtK i: LONG INT; hoUlany: INTEGER): INTEGER: 



44S 

444 — END; 

445 ~ 

446— TStrlng - SUBCLASS OF TColltct ion 

447 — 

448 — {Variablas} 

449 — 

450 — '^ (Citation and Dast ruction} 

451 — FUNCTION TString. CREATE(ob jact: TObjact; haap: THaap; init ialSIack: INTEGER): TString; 

452 - , -: 

455 — (Attributas) 

454 — S" FUNCTION TString HanbarByt as: INTEGER; OVERRIDE: 

455 — 

456 — {Enunarata Maabars] 

457— PROCEDURE TString. EacK PROCEDURE OoToCharacter( character. CHAR)); 

458— FUNCTION TString. Pos( a ftar LONGINT; charactan CHAR): LONGINT; 

459— FUNCTION TString. Scannar TStrlngScannar, 

460— FUNCTION TString. Scannaifro«( firstToScan: LONGINT; scanDiract ion: TScanO i ract ion) : TStringScannar; 

461 — 

462 — (Inspact ■aMbarsj 

465— FUNCTION TString. At ( l: LONGINT): CHAR; 
464— FUNCTION TString. First: CHAR; 

465 — FUNCTION TString. Last: CHAR; 

466— FUNCTION TString. HanyAtf 1. houHany: LONGINT): TString; 

467— PROCEDURE TString. ToPStr(pStr. TPString); 

468— PROCEDURE TString. ToPStrAt(i, houhany: LONGINT; pStr TPString): 

469 — 

470 — { Insart nanbars} 

471— PROCEDURE TString. In$At( i: LONGINT; charactar CHAR); 

472 — PROCEDURE TString. In$Fir$t( charactar CHAR); 

475 — PROCEDURE TString. InsLastf charactar. CHAR); 

474— PROCEDURE TString. InsPStrAtCi: LONGINT; pStr TPString); 

475 — 

476 — {Dalata nanbars} 

477 — PROCEDURE TSt ring. Dal AI 1 ; 

478— PROCEDURE TString. Del At (i: LONGINT); 

479— PROCEDL«E TString. Dal First; 

480— PROCEDURE TString. Dal Last; 

481— PROCEDURE TString. Dal nanyAt( i, houHany: LONGINT); 
482 — 

485 — (Changa mafflbar} 

484— PROCEDURE TString Put At(i: LONGINT; charactar CHAR): 

485 

486 

487 

488 

489 

490 — END; 

491 — 

492 — TFila • SUBCLASS OF TCol Taction 
495 — 

494 — {Variables} 

495 — path: TFilaPath; 

496 — password: TPassuord; {The currant password protecting this file, and used for all 

497 — accesses to it; client is responsible for setting this 

498 — field after the TFile is created; ignormi if 

499 — LibraryVarsion <> 20} 

500 — scanners: TList {OF TScanner}; 

501 — 

502 — {Creation and Destruction} 

505 — FWCTION TFile. CR£ATE( object: TObjact; haap: THaap; ItsPath: TFilaPath; 

504 — itsPassuord: TPassuord): TFile; 

505 — {itsPassuord is ignored froM LibraryVarslon <« 20} 

506 — 

507 — PROCEDURE TFile. Free; OVERRIDE; (Frees the scanners as uell} 
508— FUNCTION TF il e. CI one( heap: THaap): TObjact; OVERRIDE; {Illegal} 

509 — 

510 — {Attributes} 

511 — FUNCTION TFile. MeMbeiBytes: INTEGER; OVERRIDE; 

512 — 

515 — {Enumerate aeebers} ^ , 

514— FUNCTION TFile. Scanner TFileScanner, { f. Scannerf roirf 0, [fRead, fUrite])} 

515— FUNCTION TFile. ScannerFro«< firstToScan: LONGINT; Mnip: TAccesses): TFileScanner, 

516 — 

517 — {Catalog) 

518 — PROCEDURE TF il a. ChangePa$suord( VAR error INTEGER; newPassuont TPassuord); 

519 — {also changes the password field, if successful} 

520— PROCEDURE TFile. Del eteTvAR error INTEGER); 

521— FUNCTION TFile. Ex lsts( VAR error INTEGER): BOOLEAft 

522— FUNCTION TFile. ihenMod if ied( VAR error INTEGER): LONGINT; 

525 — PROCEDURE TFile. Renainef VAR error INTEGER; newF il eNaine: TFilePath); 

524— FUNCTION TFile. VerifyPas$word( VAR error INTEGER; password: TPassword): BOOLEAN; 

525 — 

526 — Ef©; 

527 — 

528 — TScanner • SUBCLASS OF TObJect 

529 — 

550 — {Variables} , 

551 — collection TCol lection; {The collection being scanned} ^ ^ 

552 — position: LONGINT; (The current position (between laeubers: 0>before first, size+l-after 
555 — last)} 

554 — Incraiaent: INTEGER; {1 if scanning forward, -1 if scanning backward) 

555 — scanDona: BOOLEAN; {TRUE if next .Scan call should return FALSE, leaving its VAR 

556 — paraaiater alone} . , 

557 — atEnd: BOOLEAN; {TRUE if next .Scan call will return FALSE because at end of collection) 

558 — 

559— FUNCTION TScanner. CREATE( object: TObject; itsCol lection: TCollectlon; its Initial Posit ion: LONGINT; 

540 — scanOirection: TScanDirection): TScanner, 

541 — 

542 — {Close and Reopen} , „ ^ ^ ,, ^ »,,,»,.. , .i. 
545 — PROCEDURE TScanner. CI ose; DEFAULT; {If disk-based. Hush buffers and tell OS to close file. 

544 — else no-op} . ^ .. ^ 

545 — PROCEDURE TScanner. Op«»; DEFAULT; {If disk-based, tell OS to raop«i file and fill first buffer) 

546 — 

548— PROCEDURE TScanner. All ocate( slack: LONGINT); DEFAULT; {Like collect ioa StartEdit($lack)} 

549— PROCEDURE TScanner, Coapact; DEFAULT; {Like collection. St opEd it} 
550 — 
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Page 



551 — 

552 — 
555 -- 

554 — 

555 — 

556 — 

557 — 

558 ~ 

559 — 

560 ~ 

561 — 

562 — 

563 — 

564 ~ 

565 — 

566 — 

567 — 

568 — 

569 — 

570 ~ 

571 — 

572 ~ 
575 — 

574 — 

575 — 

576 — 

577 — 

578 — 

579 — 

580 — 

581 — 

582 ~ 
585 — 

584 ~ 

585 — 

586 — 

587 ~ 

588 — 

589 — 

590 — 

591 ~ 

592 — 
595 — 

594 ~ 

595 — 

596 ~ 

597 — 

598 ~ 

599 — 

600 — 

601 — 

602 — 
605 ~ 

604 ~ 

605 — 

606 — 

607 — 

608 ~ 

609 ~ 

610 — 

611 — 

612 ~ 
615 ~ 

614 — 

615 — 

616 ~ 

617 — 

618 — 

619 -- 

620 — 

621 — 

622 ~ 
625 — 

624 — 

625 — 

626 — 

627 ~ 

628 — 

629 — 

650 ~ 

651 — 

652 ~ 
655 — 

654 — 

655 — 

656 ~ 

637 — 

638 — 

639 — 

640 ~ 

641 ~ 

642 ~ 

643 ~ 

644 — 

645 ~ 

646 — 

647 — 

648 — 

649 ~ 

650 ~ 

651 — 

652 — 

653 ~ 

654 — 

655 — 

656 ~ 

657 ~ 

658 ~ 

659 — 

660 — 



{Positioning! 
FUNCTION T 



Scarmtr. Advancer PROCEDURE DoToCurr»nt(anoth«rH«abar. BOOLfAN)): BOOLEAN; 



PROCEDURE TScannar. Donr, DEFAULT; 

PROCEDURE TScannar. Ravarsa; DEFAULT; 

PROCEDURE TScannar.Saak(nauPos it ion: LONG INT); DEFAULT; 

PROCEDURE TScannar Skip(daItaPos: LONGINT}; DEFAULT; 



Sat scanOona so that Scan will return FALSE) 
Ravarsa tha scan dlracf ion) 
Forces to legal places) 
Forces to legal places) 



(* BEGIN CONCEPTUAL METHODS (parameter types differ in svAcIassas; sometimes extra parameters required) 



CONCEPTUAL; {Return previous member (redundant right after 

Scan) ) 
THeaber"): BOOLEAN; CONCEPTUAL; {Return next & advance past It) 



{Add a neu meeber after position, scan 

past it} 
{Delate previous member and adjust 

DOS it ion} 

(Delete everything after SELF, pos it ion} 
{Replace previous member and maintain 

pos it ion) 



{Data Transfer} 
FUNCTION TScanner. Obtain "Tnembar' 

FUNCTION TScannar. Scan(VAR member 

{Editing} 
PROCEOURE TScannar. Append( member. "TftaMber"); CONCEPTUAL: 

PROCEDURE TScannar. Delete; CONCEPTUAL; 

PROCEDURE TScannar. Dal ateRest; CONCEPTUAL; 

PROCEDURE TScannar. Replace(me«ber. "Tflambar); CONCEPTUAL; 

END CONCEPTUAL METHODS •) 

END; 

TList Scanner <■ SUBCLASS OF TScannar 

{Variables} 

{Creation and Destruction} 

FUNCTION TListScanner.CREATE( object: TObJect; itsList: TList; its Initial Pos it ion: LONGINT; 

itsScanOiraction: TScanD i rect ion) : TListScannar 
PROCEDURE TListScarvwr. Free; OVERRIDE; 

{Traversal} 

FUNCTION TListScannar. Obtain: TObJect; DEFAULT; {Return previous member (redundant right after Scan)} 
FUNCTION TListScannar. Scan(VAR nextObJect: TObJect): BOOLEAN; DEFAULT; {Return next, advance past it} 

{Editing} 
PROCEDURE TListScannar. Appendf object: TObJect): DEFAIA.T; {Add object after posit ion, scan past it} 
PROCEDURE TListScannar. Deleter freeOid: BOOLEAN); DEFAULT; {Delete previous object, adjust position) 
PROCEDURE TListScannar. Del eteRest(free01d: BOOLEAN); DEFAULT; (Delete all objects after position} 
PROCEDURE TListScannar. Replaca( object: TObJect; freeOld: BOOLEAN); DEFAULT; {Replace previous} 

END; 

TArrayScannar - SUBCLASS OF TScanner 

{Variables} 

{Creation and Destruction} 

FUNCTION TArrayScannar. CR£ATE( object: TObJect; itsArray: TArray; itslnit ialPosit ion; LONGINT; 

itsScanDlrection: TScanOi rect ion): TArrayScanner, 
PROCEDURE TArrayScannar. Free; OVERRIDE; 

{Traversal} 
FimCTION TArrayScannar. Obtain: Ptr DEFAULT; {Return previous member (redundant right after Scan)} 
FUNCTION TArrayScanner. Scan(VAR pNextRecord: Ptr): BOOLEAN; DEFAl^T; {Return next S advance past it} 

{Editing} 
PROCEDURE TArrayScanner. Append(pRecord; Ptr); DEFAULT; (Add a neu record after position, scan past it} 
PROCEDURE TArrayScannar. Delete; DEFAULT; Delete previous record and adjust position] 

PROCEDURE TArrayScannar. Del eteRest; DEFAULT; Delete ail records after position} 

PROCEDURE TArrayScannar. Replaca(pRecord: Ptr); DEFAULT; {Replace previous record and maintain position} 

Ef©; 

TStringScannar - SUBCLASS OF TScannar 



{Variables} 

actual: LONGINT; 



{no. bytes last xfered} 



{Creation and Destruction} 
FUNCTION TStringScannar. CREATE( object: TObJect; ItsString: TString; Itslnit ial Pos it ion; LONGINT; 

itsScanOirection: TScanOi rect ion): TStringScanner, 
PROCEDURE TStringScannar. Free; OVERRIDE; 

{Traversal} 
FUNCTION TStringScannar. Obtain CHAR; DEFAULT; {Return previous member (redundant right after Scan)} 
FUNCTION TStringScanner. Scan(VAR nextChar CHAR): BOOLEAN; DEFAULT; {Return next 8. advance past it) 

{Editing) 
PROCEDURE TStringScafWier.Appand( character CHAR); DEFAULT; (Add char after position, scan past it 



PROCEDimE TStringScanner. Delete; DEFAULT; 

PROCEDURE TStringScannar. Del eteRest; DEFAULT; 

PR(XXDURE TStringScannar. Raplaca( character CHAR); DEFAULT; 



Delete previous char, adjust position} 
Delete all chars after position) 
Replace previous char, maintain position) 



{Typed Sequential Data Transfer characters are raad/uritten from left to right regardless of increment) 
FUNCTION TStringScanner. ReadArr8y( heap: THeap; bytesPerRecord: INTEGER): TArray; {reads size first) 
FUNCTION TStringScannar. ReacWumber(nuMeytes: SizaOfNumber): LONGINT; {iff numBytes is even 

then signed} 
FUNCTION TStringScanner. ReadObJact( heap: THeap): TObJect; ftel Is object to Read( SELF)} 
PROCEDURE TStringScannar. «ritaArray( a: TArray): {inverse of ReadArray: writes size but not 

recordBytes} 
PROCEDIWE TStringScanner. yrltaNumber( value: LONGINT; numBytes: SizeOfNumber); {does not urite size) 
PROCEDURE TStringScannar. ttriteObject(object: TObJect); (tells object to Urite(SELF)} 
PROCEDURE TStringScannar. XferContiguousfuhichWay: xReadUrite; collection: TCol 1 ect ion) ; 

{xfers the size and members, non-recursively; xRead appends uhat it reads) 
PROCEDURE TStringScannar. XferF ial ds(uhich«ay: xReadWrlte; object: TObJect); fxfers all but the cl as 
PROCEDURE TStringScannar. XferPString(uhicW<ay: xRaadMrita; pStr TPString); {it better be long enoul 

(Untyped Data Transfer characters are read/written from left to right regardless of increment} 
PROCEDURE TStringScannar. XfarSequent ial (uhichUay: xReadUrita; pFirst: Ptr. numBytes: 

LONGINT); DEFAULT; 
PROCEDURE TStringScannar. XfarRandom(uhich«ay: xReadWrite; pFirst: Ptr numBytes: LONGINT; 
^^ mode: TIOMode; offset: LONGINT); DEFAULT; 

END; 
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661 — 

662 — 
66S — 

664 — 

665 ~ 

666 — 

667 — 

668 — 

669 — 

670 — 

671 ~ 

672 ~ 

673 ~ 

674 — 

675 ~ 

676 — 

677 ~ 

678 — 

679 — 

680 ~ 

681 ~ 

682 ~ 
685 -- 

684 ~ 

685 — 

686 ~ 

687 — 

688 ~ 

689 — 

690 — 

691 — 

692 — 

693 — 

694 ~ 

695 — 

696 ~ 

697 — 

698 ~ 

699 — 

700 — 

701 ~ 

702 ~ 

703 — 

704 — 

705 ~ 

706 ~ 

707 ~ 

708 — 

709 ~ 

710 ~ 

711 — 

712 — 

713 ~ 

714 ~ 

715 — 

716 — 

717 — 

718 — 

719 ~ 

720 — 

721 ~ 

722 ~ 

723 — 

724 — 

725 — 

726 — 

727 — 

728 -- 

729 ~ 

730 — 

731 — 

732 — 

733 ~ 

734 — 

735 — 

736 — 

737 ~ 

738 ~ 

739 — 

740 ~ 

741 — 

742 ~ 

743 ~ 

744 — 

745 ~ 

746 — 

747 ~ 

748 — 

749 ~ 

750 -- 

751 — 

752 — 

753 ~ 

754 — 

755 ~ 

756 — 

757 — 

758 -- 

759 — 

760 ~ 

761 ~ 

762 — 

763 — 

764 — 

765 — 

766 — 

767 ~ 

768 ~ 

769 ~ 

770 — 



TFil«Sc«nn«r - SUBCLASS OF TStrlnoSc«nn»r 



(Variabl«s} 
acctssas: 

rafnuK 
arror 



TAccassas; 

INTEGER; 

INTEGER; 



{EOF is not an arror} 



ffRead, fWrlta, fAppend, fPrivateJ} 

OS flla rafnum, or -1 if not opart nou} 

first arror (or warning if no trror) ancountared) 



fCvaation and Dast ruction} 
FONCTIOH TFtlaScannar. CR£ATE(obJact: TObiact; itsFiia: TFila; wanip: TAccessas): 
IDURE TFtlaScannar. FraaObjact: OVERRIDE; (also closas tha OS fila} 



TFilaScanner 



DURE TFllaScannar. Fraa; OVERRIDE; {if tha last scanner, frees the TFile, too} 

{Close and Reopen} 
PROCEDURE TF il aScannar. CI osa; OVERR IDE; 
PROCEDURE TFilaScanner. Open; OVERRIDE; 

{Slack Control} 
PROCEDURE TFllaScannar. All ocate( slack: LONGINT); OVERRIDE; {Gat slack DIV pageSlze unused disk pages} 
PROCEDURE TFileScanner. Coapact; OVERRIDE; {Return unused disk pages to free space} 

{Positioning} 
PROCEDURE TFileScanner. SeekfneuPos it ion: LONGINT); OVERRIDE; 
PROCEDURE TFileScanner.Sk ip( del taPos: LONGINT); OVERRIDE; 

{Traversal} . , 

FUNCTION TFileScanner. Obtain: CHAR; OVERRIDE; [Return previous meisber (redundant right after Scan)} 
FUNCTION TFileScanner. Scan(VAR next Char CHAR): BOOLEAN; OVERRIDE; {Return next & advance past it} 



{Editing} 
PROCEDURE TFilaScanner. Append( character CHAR); OVERRIDE; 
PROCEDURE TFileScanner. Delete; OVERRIDE; 
PROCEDURE TFileScanner. Del eteRest; OVERRIDE; 
PROCEDURE TFileScanner. Replace( character CHAR); OVERRIDE; 



Acts like: Replace: Skip(l)} 
^Acts like: Skip(-1)} 
Shorten file size to SELF, pes It ion} 
Replace orevious member and maintain 
pos it ion} 



{Untyped Data Transfer, characters are read/written from left to right regardless of increment} 
PROCEDURE TFileScanner. XfarSequentiaKuhichWay: xReadWrlte; pFirst: Ptn numeytes: LONGINT); OVERRIDE; 
PROCEDURE TFileScanner. XferRandom(uhichUay: xReadUrite; pFirst: Ptr, nunBytes: LONGINT; 

■ode: TlOhode; offset: LONGINT); OVERRIDE; 

END; 

{SIFC compatiblaLists} 

{Backuard compatibility classes} 



ch: (UNPACKED) ARRAY { 0. . 163701 

FUNCT ION TDynamicArray. CREATE? object: .TOb ject;^ heaj 



TDynamicArray ■ SUBCLASS OF TArray 

.- QP g^^. 

initial Size: INTEGER): 
FUNCTION TDynamicArray. r^jmRecords: INTEGER; 
PROCEDURE TDynamicArray. BeS ize( neuS ize: INTEGER) ; 
END; 



THeap; bytesPerRecord: 
TDynamicArray; 



INTEGER; 



INTEGER): TIndexList; 



TlndexList - SUBCLASS OF TList 

elements: ARRAY[1. .1] OF TObject; 

FUNCTION TIndexList. CREATEC object: TObject; heap: THeap; initial Size: 

FUNCTION TIndexList. numEIements: INTEGER; 

END; 

TLinkList - SUBCLASS OF TList 

FUNCTION TLinkList. CREATEC object: TObject; heap: THeap): TLinkList; 

FUNCTION TLinkList. numEIements: INTEGER; 

END; 

TBlockList - SUBCLASS OF TList 

FUNCTION TBlockList. CREATEC object; TObject; heap: THeap; itsHinBlockSize: INTEGER): TBlockList; 

FUNCTION TBlockList. numEIements: INTEGER; 

END; 

TFil est ream - SUBCLASS OF TFileScanner 

FUNCTION TFil est ream. CREATEC object: TObject; heap: THeap; path: S255; manip: TAccesses): TF il eStream; 

FUNCTION TFil est ream Size: LONGINT; 

END; 



{SENDC} 



VAR 



mainDsRefnum: 
■a inHeap: 
mainLdsn: 
fCheck Indices: 

onDesktop: 
um Is Initialized: 
is Initial ized: 
amOy Ing: 

myUorl d: 



INTEGER; 
THeap; 
INTEGER; 
BOOLEAN; 

R>OLEAN; 
BOOLEAN; 
BOOLEAN; 
BOOL£M<; 

TClassUorld; 



{refnum of the process data segment} 

{heap of the process} 

(Idsn of the process data segment} 

Is there a DH (Desktop Hanager) to talk to?} 
Has OpenUH been done?) 

Iff TRUE, shouldn't tell DM initFailed any more} 
;iff TRUE, I have called ImOying} 

{For Version Conversion} 



{ Variables for Debugging } 
IndentTracr. INTEGER; 

{ stuff for the intelligent output } 
currXPos: INTEGER; 

output Indent: INTEGER; 

{$1FC fTraca} 

{ TRl£ if ue want to inhibit tracing; client must save and restore its value; 
normally this is needed only if you override the Debug method } 
fDebugRecurs ion; BOOLEAN; 

{ hou often to call KayPress from debugger to check for user interrupt } 
keyPresLlmit: INTEGER; 

{SENDC} 
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FUNCTION Mlrrfi. 1: LONGINT): LONGINT; 
FUNCTION n«x(i, J: LONGINT): LONGINT; 



771 — f$IFC fCh»ckH«»p} 

772 ~ FUNCTION CountH««p( h««p: THaap): INTEGER; 

773 — {SENOC} 

774 

775 

776 

777 

778 — PROCEDURE Xf«rL»ft($ourcB, dest: Ptr nBytes: INTEGER); 

779 — PROCEOURE.Xf«rRight( source, dest: Ptr; nBytes: INTEGER): 

780 — FUNCTION Equal Bytes( source, dest: Ptr, nBytes: INTEGER): BOOLEAN; 
78i — 

782— FUNCTION 4. IntAndLInt(i, 1: LONGINT): LONGINT; 

785— FUNCTION LlntOrLInt{ 1, J: LONGINT); LONGINT; 

784— FUNCTION LIntXorLIntt 1, J: LONGINT): LONGINT; 

785 — 

786 — FUNCTION NeuCbJect(heap: THeap; itsCIass: TCI ass): TObject; 

787 — FiMCTION NewOynOb ject(heap: THeap; itsClass: TCIass; dynBytes: INTEGER): TObject; 

788 — PROCEDURE Res ize0yn0bject( object: TObject; neuTotal Bytes: INTEGER); 

789 — FUNCTION NeuOrRecycI ed(% ject( heap: THeap; itsClass: TCIass; VAR chainHead: TObject): TObject; 

790 — PROCEDURE RecycleObjectf object: TObject; V/AR chainHead: TObject); 

791 — PROCEDURE Free( object: TObject); 

792 — 

79S — {$IFC cofnpatibleLists) 

794 — (Backuard coopat ibil ity procedures} 

795 — 

796 — FUNCTION SubObject( super T(»)1ect; itsClass: TCIass): TObject; 

797 — PROCEDIWE Fll eDelete(path: S255); 

798 — PROCEDURE Fil eLookupf VAR error INTEGER; path: S255); 

799 — PROCEDURE Fil eRename(olcH»ath. newPath: S»5); 

800 — FUNCTION Fil eModif ied(path: S255): LONGINT; 

801 — {SENDC} 

802 — 

805 — FUNCTION Supercl ass( cl ass: TCIass): TCIass; 

804 — FUNCTION Cla$sDescendsFrofR( descendant, ancestor. TCIass): BOOLEAN; 

805 — 

806— PROCEDURE NaiwOrClassf class: TCIass: VAR cl assName: TClassName); 

807 — FUNCTION S izeO fCl ass( cl »s: TCIass): INTEGER; 

808 — 

809 — (The next 5 can only be called from a class- init block or a subroutine of a class-init block} 

810 — Procedure UnitAuthor(co«panyAndAuthor. TAuthorName); (required once per unit} 

811 — PROCEDURE Cla$sAuthor(coinpanyAndAuthor TAuthorName; classAl ias: TClassName); {optional} 
812— PROCEDURE ClassVersionCltsUers ion, oldest It CanRead: Byte); {optional} 
815 — 

814— FUNCTION Val idOb ject(hndl: Handle): BOOLEAN; 

815 — 

816 — PROCEDURE ABCBreak(s: S255; arrCode: LONGINT); 

817 — 

818— PROCEDURE Clascal Error( error. INTEGER); 

819 — 

820 — {Some useful procedures; ue should decide once and for all whether or not to keep any or all of these} 

821 — PROCEDURE LIntToHex(decNumber LONGINT; hexNumber TPString); 

822 — {NOTE: hexNufflber must be >- 8 characters, regardless of size of decNumber} 

823 — PROCEDURE LIntToStr(decNufflber LONGINT; str TPString); 

824 — {NOTE: str must be >> 11 characters (sign * 10 digits), reoardlass of size of decNumber} 

825 — PROCEDURE IntToStr(decNumber INTEGER; str TPString); 

826 — {NOTE: str must be >■ 6 characters (sign ♦ 5 digits), regardless of size of decNumber} 

827 — PROCEDURE HexStrToLInt(hexString: TPString; VAR decNumber LONGINT; VAR result: TConvResult); 

828 — PROCEDURE StrToLInt(str TPString; VAR decNumber. LONGINT; VAR result: TConvResult); 

829 — PROCEDURE StrToInt($tr TPString; VAR decNumber: INTEGER; VAR result: TConvResult); 

850 — 

851 — PROCEDURE TriiBBIanks(str TPString); 

852 — FUNCTION CharUpperCased(ch: CHAR): CHAR; 
855 — PROCEDURE StrUpperCa$ed(str TPString); 

854 — 

855— PROCEDURE Split Fil ePath( VAR full Path, itsCatalog, itsFilePart: TFilePath); 

856— { full Path ■ CONCATC itsCatalog, itsFilePart} 

857 — 

858 — PROCEDURE LatestError(neuError INTEGER; VAR previousError INTEGER); 

859 — {This is used to handle error codes returned by multiple operations, so that you end up ulth 

840 — the first error nunber or warning number (error code < 0) if there was no error. 

841 — You should pass in the latest error as ' neuError* and the variable that is to be the final 

842 — error code as ' previousError' . Here is the actual code of LatestError 
845 
844 
845 

846 — previousError :■ newError 

847 — } 
34g 

849 — {$TFC fDbgObject} 

850— PROCEDURE EntDebUQger( inputStr, enterReason: S255); 

851— PROCEDURE OumpVartpVariable: Ptr, nameAndTvpe: S255); (used mainl y by TProcess. OumpGlobals} 
852 — PROCEDURE WrStr($tr S255); ( write a string with wrap-around ) 

855 — PROCEDURE UrLn; { goto next 1 ine, and output indent ) 

854 — (fIFC fDebugMethods} 

855 — PROCEDURE UrObj( object: TObject; numLevels: INTEGER; memberTypeSt r S255); 

856 — ($ENDC} 

857 — {SENDC) 

858 — 

859 — {$IFC rObgObject C« fDebugMethods} 

860 — FUNCTION CheckKeyP res s( rout ine: S255): BOOLEAN; 

861 — (SENDC) 

862 — 
865 — FUNCTION NeuHeap(VAR error INTEGER; heapStart, numBytes: LONGINT; numObjects: INTEGER): THeap; 

864 — FUNCTION MakeDataSegment(VAR error, dsRefnum: INTEGER; f irstTryVoIume, thenTryVoIutne: TFilePath; 

865 — Idsn, memBytes. diskBytes: INTEGER): LONGINT; 

866 — 

867 — PROCEDURE Set Heap( heap: THeap); 

868 — PROCEDURE GetHeap(VAR heap: THeap); 

869 — {Ue can' t USE Unit Storage because of type name conflicts (Ptr, Handle, ProcPtr)} 

870 — 

871 — 

872 — FUNCTION NeecK:onversion(exCla$$Uorld: TCIassUorld; VAR olderVersioa newerVersion: BOOLEAN): BOOLEAN; 
875 — PROCEDURE ConvertHeap(heap: THeap; exCIassUorld: TCIassUorld); 

874 — 

875 — PROCEDlffiE HarkHeap(heap: THeap; mpAddress: LONGINT): 

876 — PROCEDURE SueepHeap( heap: THeap: r«9ort: BOOLEAN); 
877 



IF ((newError > 0) AND (previousError <- 0} OR 
(newError < 0) AND (previousError - 0)) TICN 



{SIFC fTrace} 
PRC 



879— PROCEDURE BPCnyTraceLevel: integer); , „ „^ , ^u. .-. 

880 — (Trace entry to method and write SELF (unless CREATE, Debug, or FreeObject)) 
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881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
89S 
894 
89S 
896 
897 
898 
899 
900 
901 
902 
905 
904 
905 
906 
907 
908 
909 
910 
911 
912 
915 
914 
915 
916 
917 
918 
919 
920 
921 
922 
925 
924 
925 
926 
927 
928 
929 
1 
2 
930 
1 
2 
951 
1 
2 
932 
955 
934 
955 
936 
957 
958 
959 
940 
941 
942 



PR0CEDUf« EP; 
($£NOC) 



(Tnc* entry fro* Mthod and writ* SELF (unless CREATE, Debug, PrMObJect, or FrM)} 



(• 



RULES FOR HRITING A Fields FUNCTION 



This function aust be defined in every cless until the coapiler o>nentes this info eutoaat ically* 

PROCEDURE TUhatever.F lei ds[( PROCEDURE FieldfneaeAndType: S25S}}); 
BEGIN {THE FIELDS MUST BE LISTED IN DECLAKD ORDER, NONE OHITTEO MO NONE ADDED} 
{Tell the superclass first (unnecessary if it is TObJect)) 

SUPERSELF.F lei ds( F iel d) ; 
{The following type naiaes are recognized by the parser} 

FieldC naff BOOLEAN-); 

Field 'coCode: Byte); 

Field ' inputChar CHAR"): 

Field,' version INTEGER^); 

Field* width: LONGINT): 

FleldC'viewLPt: LPoint'); 

Field 'boundLRect: LRect); 

Field 'size: Point); 

Field ptr Ptr"); 

F iel d( ' boundRect: Reef); 

F iel d( ' soMName: STR ING[ 100] ' ) ; 
{If the last field is a Byte or a B00L£AN, force padding to a word boundary by... 

Field('); 
{Every Registered Class naae is recognized) 

Field('MiscOfaJ: TObJect'}; 

Fieldt'nyPanel: TPanel'); 

F iel dC ' inySel : THySel ect ion' ) ; 

Field(' appSpecific: TAppSpecific' ); 
{You May report nore than one field in a single call to reduce code space} 

F iel d(' boundLRect: LRect; size: Point; ptr Ptr, aySel: THySel ect ion' ); 
{Unpacked invariant RECORDS are recognized} 

F iel d(- info: RECORD version INTEGER; size: Point END*); 
{If the record has variants, select anong the* before calling Field()} 

CASE SELF, variant OF 

flavorl: F iel d( ' RECORD version INTEGSER; size: Point END-); 
fIavor2: F iel d(' RECORD viewLPt: LPolntEND-); 
END; 
{Unpacked ARRAYS with literal bounds are recognized} 

Field('desc: ARRAY [1. .99] OF RECORD version INTEGER; id: ARRAY [1. .2} OF CHAR END); 

J Other constructs and type na*es are NOT recognized; substitute one of the above foFmsj 
AS a last resort, use ARRAY [1. . SIZEOF( SELF, f iel dNaae)] OF Byte} 

•) ' 



IMPLEMENTATION 

{SI LIBTK/U0BJECT2. text} {Objects, Classes, Streams, and Resources} 

{SI LIBTK/U06JECT5. text} {Arrays and Lists} 

{SI LI6TKAi06JECT4. text} {Debugger} 

SI U0BJECT2. text} {Objects, Classes, Streams, and Resources} 
SI U0BJECT5. text Arrays and Lists) 
SI U0BJECT4. text} {Debugger} 



•) 



END. 
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1. Iibtk/uob1*ct. TEXT 

2. LIBTKAJOBJECTZtaxt 
5. LIBTK/U06JECT5. t«xt 

4. LIBTK/U0BJECT4. taxt 



ABCBniak 
•cc*s$as 

actual 

MdrttMbar 

Advanca 

al iasas 

Allocata 

anOylng 

Appimd 

At 

at End 

authors 



-B- 

Bacoiw 
BaSiza 
BP 
Byta 

-C- 
ch 

ChangaPassuord 
CHAR 

CharUpparCasad 
Chack Indax 
ChackKayPrass 
Clascal Error 
Class 

CI ass Author 
ClassDescandsFro 
cl asses 
classPtr 
ClassVarsion 
Clona 

Cl onaOb Jact 
Closa 
col 1 act ion 
Compact 
Convart 
Convert Haap 
CopyManibers 
Count Heap 
CREATE 

currXPos 
cvBadNufliber 
cvNoNumber 
cvOverflou 
cvVal id 

-D- 
Oabug 

OabugtiafMbars 
Dal All 
Dal At 
Delate 
Del eteRest 
OelFirst 
Dal Last 
Dal HanyAt 
Del Object 
Done 
Draw 
DumpVar 
dynStart 



Each 

Ed it At 

elements 

Ent Debugger 

EP 

Equal Bytes 

Equal s 

erlntemal 

•rror 

Exists 



fAbsolute 

fAppend 

rCheck Indices 

fDebugRecurs ion 

F iel ds 

FileDelete 

FileLookup 

FileHodified 

F il eRename 

First 

fPrivate 

fRead 

Free 

FreeObject 

fRel at ive 

fSequent ial 

fWrite 



Get At 
Get Heap 



Handl e 
header 



S16- 
665 

gf- 

5W 

184* 
S48* 

750» 
592* 
580* 
557- 
185- 



204- 
715' 
879* 
171" 



245* 

518« 

243 

852- 

559- 

860- 

818- 

205- 

811- 

804- 

182- 

255- 

812- 

207- 

206- 

545- 

5S1 

549- 

226- 

875- 

542- 

772- 

205 

670* 

759- 

195- 

195- 

195- 

195- 



218- 

566- 

591- 

592- 

520- 

594- 

595- 

594- 

595- 

596- 

555-( 

487* 

851- 

255- 



575- 

545- 

717 

850-( 

881- 

780- 

295- 

146- 

667- 

521- 



189- 

187- 

745- 

765- 

217- 

797- 

798- 

800- 

799- ( 

581- 

187- 

187- 

209- 

208- ( 

189- 

189- 

187- 



425- 
868* 



156- 
242- 



679-{ 1) 



615-( 1) 655- ( 1) 
425- ( 1) 465- ( 1) 



691-( 1) 



709 { 1) 

465 ( 1) 464 ( 1) 465 ( 1) 651 (1) 687 { 1) 709 ( 1) 832 ( 1) 



249- ( 1) 

291-( 1) 555-( 1) 508"( 1) 

675-( 1) 

680- ( 1) 



290-( 1) 554 ( 1) 4lO-( 1) 451 ( 1) 505-( 1) 539-( 1) 585 ( 1) 604 ( 1) 626-( 1) 
)-( 1) 718- ( 1) 725 ( 1) 728 ( 1) 755 { 1) 



710- 



560-( 1) 



455- 

456- 
595- 

615- 
457- 
458- 
459- 



477- 


1' 


478- 


l' 


614- 


1 


637- 


l' 


479- 


1 1 


480- 


1 


1 481-1 


1) 



636- 
695 



■[I] 



692- ( 1) 



251- ( 1) 265- ( 1) 
4l6-( 1) 457*( 1) 



424- ( 1) 464- ( 1) 

556-( 1) 507-( 1) 585-( 1) 606-( 1) 628-( 1) 672-( 1) 791-( 1) 
671-( 1) 
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Heap 

H*apByt»s 
HaxSt rToL Int 
IM) tS iz« 
hoi •Start 
hoi aStd 
HWInt 

I- 
incf — nt 
indantTraca 
InfRacs 
InsAt ^- 

InsFirst 
InsLast 
InsHanwAt 
InsNullsAt 
InsPSt rftt 
INTRINSIC 
IntToStr 
is Initial izad 



-J- 



210- 
211' 
827" 
257" 
256' 
258* 
120' 



255-f 1) 265»( 1 
252-( 1} 26A-( 1 
254-( 1) 266- ( 1 



SS4-I 












756- 












181» 












586' 




450- 


1 


471- 


1 


387* 




451- ; 


1 


472* 


1 


588* 




452- 


1 


475- 


1 


502* 












505* 












474- 












8» 












825* 












749-1 













JoinClass 



227«( 1) 



kayPrasLimit 

-L- 
Last 

LatastError 
LIntAndLInt 
LIntOrLInt 
LIntToHex 
L IntToStr 
LlntXorLInt 

-tt- 
iia ir^sRa f num 
minHaap 
mainLdsn 
flakaDataSagnmnt 
HanyAt 
tiarkHaap 
nax 

flaxBraaks 
MAXL INT 
HanbarBytas 
Min 
■yUorld 



767-( 1) 



582* 
858" 
782- 
785* 
821* 
823* 
784* 



742* 


1) 


743- 


1 


744* 


1 


864- 


1 


583« 


1 


875* 


I 


776* 


1 


143- 


1 


148- 


l' 


294- 


1 


775* 




752»( 





426-( 1) 465-( 1) 



427-( 1) 466' ( 1) 



570-( 1) 413*( 1) 454-( 1) 511*( 1) 



NamaOfClass 
NeadConversion 
NeuDynOb ject 
NauHeap 
NauObjact 
NauOrRecycl adOb j 
nunClamants 
NunRecords 



-0- 



Obtain 

onOaskt op 

Opan 

out put Indent 

outputRnargin 



806* 

872' 

787* 

863* 

786* 

789* 

719* ( 

712- 



588-( 

747*( 

545* 

760' 

145- 



724«( 1) 729-( 1) 

609-( 1) 631'{ 1) 687-( 1) 
676-( 1) 



PasI ibCal 1 

Passud 

password 

path 

PinOecl 

PlWR 

PopLast 

Pos 

pos it ion 

PPasLlbC 

prcsOsBytes 

prcsLdsn 

ProcPtr 

Ptr 

Put At 

-R- 
Raad 

RaadArray 
RaadNumber 
RaadObject 
racordBvtes 
Racycl abb Ject 
rafnuai 
Ranaina 
Rapl ace 
Res izaCoI I 
Res izeOynOb ject 
Reverse 

-S- 

S2S5 
S8 

Scan 

scanBackuard 

scanDone 

scanForuard 

Scanner 

ScannerFrom 

scanners 

Seek 



116* 

101- 

496* 

495 

113' 

114« 

397«( 

574» 

532' 

117*( 

141' 

140* 

155* 

154' 

400* 



212" 
641* 
$42' 
644* 
255* 
790* 
666- 
523* 
595- 
344- 
788* 
554- 



161' 
160' 
589' 
193* 
535- 
193* 
575' 
376- 
500< 
555* 



417»( 1) 458-( 1) 



155 ( 1} 156 ( 1) 168 ( 1) 169 ( 1) 423 ( 1) 424 ( 1) 426 ( 1) 609 ( 1) 
442- { 1) 484- ( 1) 



407 ( 1) 



616- ( 1) 638- ( 1) 694- ( 1) 



163 ( 1) 172 ( 1) 

610-( 1) 632-( 1) 688*{ 1) 



•( 1) 459-( 1) 514-f 1) 
-( 1) 460*( 1) 515-( 1) 



418 
419 



683-( 1) 
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Sat Heap 

ShiftColl 

Siz* 

size 

Slztorciass 

SizeOfNuMbcr 

Skip 

Spl itFilcPath 

Start Edit 

Stop£dit 

STRING 

StrToInt 

StrToLInt - 

StrUpparCasad 

SubObjact 

Suparclass 

SuaepHeap 

SysCal 1 



-T- 



TAccasses 

TArray 

TArrayHaader 

TArrayScannar 

TAuthorName 

TBlockList 

TCI ass 

TC! assName 

TCI assUorl d 

TCol 1 acHaader 

TCol 1 act ion 

TConvRasul t 

TOyrtamicArray 

TEnumAccassas 

TFastStrino 

TFiia 

TFllaPart 

TFilaPath 

TFllaScanner 

TFilaStream 

THaap 

THFastStrlng 

T IndexL ist 

T lOHode 

TLinkList 

TList 

TListScannar 

TObjact 



ToPStr 

ToPSt rAt 

TPassuord 

TPFastStrino 

Tp INTEGER 

TpLONGINT 

TPString 

TrlnBlanks 

TScanO traction 

TScannar 

TString 

TStringScannar 



-U- 



UCIascal 
UnitAuthcr 
Unit Hz 
UnitStd 
UObject 



-V- 



Val idOb Ject 
Var if yPassuord 

IdhenHod i f iad 

Width 

umis Initial izad 

Urlte 

UritaArray 

DriteNumber 

UritaObjact 

Wxln 

UrObJ 

WrStr 

-X- 
XfarContiguous 
XfarFlalds 
X fane ft 
XfarPString 
XfarRandom 
XfarRight 
XfarSaquantial 
xRaad 
xRaadUrita 
xtilrita 



867- 
545- 

754- 
254* 
807» 
191* 
556* 
9iS» 
298* 
299' 
1«0 
829* 
82S* 
855- 
796- 
805- 
876» 
99* 



188* 

181 

248* 

418 

177* 

727- 

169- 

178* 

180* 

252* 

259* 

195- 

708- 

187* 

241- 

492- 

165- 

163- 

514 

752- 

168- 

246* 

716- 

189' 

722' 

349- 

375 

200- 

382 

796 

467* 

4e8- 

166* 

245* 

174* 

175* 

172* 

851- 

193* 

528- 

446* 

459 



104*{ 

810-( 

98- { 

97* ( 

1*( 



814 
524 



•■[ 



522- 
488* 
748- 
213* 
645* 
647* 
648* 
853* 
855* 
852* 



649* 
651* 
778* 
652* 
657* 
779* 
655* 
190* 
190* 
190* 



250*( 1) 262 ( 1) 
684-( 1) 

161 ( 1) 165 ( 1) 177 { 1) 178 ( 1) 



665 ( 1} 

182 ( 1) 

♦20 ( 1) 

728 ( 1) 

205 ( 1) 

752 ( 1 

242 { 1 

290 ( 1 



183 ( 1) 184 ( 1) 404* { 1) 410 ( 1) 427 (1) 641 ( 1) 708 ( 1) 

599*( 1) 605 ( 1) 

233 ( 1) 249 ( 1) 803 ( 1) 

349 ( 1) 404 ( 1) 446 ( 1) 492 ( 1) 531 { 1) 



711 
188 
245 
504 
166 
495 
515 
733 
210 



662* ( 1) 
743 ( 1) 



718 ( 1) 




670 ( 1) 732 ( 1) 
863 ( 1) 



500 ( 1) 716 (1) 722 ( 1) 727 ( 1) 
584 { 1) 



207 (1) 227 ( 1) 259 (1} 291 ( 1) 355 ( 1) 380 ( 1} 381 
1) 588 (1) 644 ( 1) 717 ( 1) 786 ( 1) 787 ( 1) 789 



528 



l\ 



496 
246 



U! 



540 ( 1} 578 
451 ( 1) 466 
460 ( 1) 620" 



1) 599 ( 1) 620 ( 1) 
ij 627 (1) 662 ( 1) 



106*( 1) 108*( 1) 



699*( 1) 
698*( 1) 



" End Xraf: 264 id's 478 refarancas (421720 bytas/4735 id* $/43245 rafsl 



V,. 
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1 

2 
S 

4 
5 

6 
7 
8 

9 
10 
11 
12 
IS 
14 
15 
16 
17 
16 
19 
20 
21 
22 
25 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
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64 
65 
66 
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73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
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103 
104 
105 
106 
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108 
109 
110 



UNIT UOr«u; 

{Copyright 1983. 1984, Appla Co«put«r, Inc.) 

{changad 05/01 1503 Changes to allow peopla to usa Clascal on tha ktorkshop} 

{SSatc Is Intrinsic :- TRUE ) 

($IFC Is Intrinsic) 
INTRINSIC; 
(SENOC) . 

INTERFACE 



UKS 



^$U UnltStd 
$U UnltHz 



1. 



UnltStd, 
UnltHz, 



;& 1 Ibtk/yob jact} Ubbjact, 



rci lant should not USE UnltStd) 

tci " 



, IBOS/SysCal 1 ) SysCall, 

{$IFt LlbraryVarslon > 10) 

r$U LIBPL/Pasl IbCall) Pasl IbCall, 
JSU LIBPL/PPasLlbc ) PPasLlbC. 



lant should not USE UnltHz and HUST NOT USE Storaga) 
{CI lant Must USE UObJact) 
{CI lant my USE SysCall) 



lib J 



{$IFC LlbraryVarslon <■ 20) 
{$U FontMgr ) Fonthgr. 

{$6 QuickDraw ) QuickDraw, 
{$IFC Lib 

{$EI 



)raryVarslon > 20) 
{$U Fonthgr ) Fonthgr, 



{CI lant should USE UFont Instaad of Fonthgr befora QuickDraw) 

{CI lant Mjst USE QuickDraw (unlass U9 provide a typa-stU> for It)) 

{Client should USE UFont instaad of Fonthgr after QuickDraw) 



Events, 

Folders, 

FUerCooRc 

• fDbgOK) 

• fDbgOK) 
« fSymOK) 



$U m. Events 
SU Wh. Folders 
$U FllerComn 

fSSETC fDbgDraw 
fiSETC fRngDrau 
{SSETC fSynOraw 

{$SETC fDebughethods :- fDbgOraw) {if VAR also true, trace entries and/or exits) 

CONST 

{there should be at aost 10 famii les and they should be In consecutive order; otherwise 

the command nuaber constants In UABC should be changed) 
famSystem "0; 

fanhin > 1; (Minlfflua famil y number that appears in tha font aenu) 

famModem "1 

famCl ass ic - 2; 
fanhax 

{there should be at most 20 famil ies and they should be in consecutive order otherwise 
the command nuaber constants in UABC should be changed) 



slzeHln 

$i2e20Pitch 

si2el5Pltch 

$l2el2Pltch 

slzelOPitch 

slzel2Point 

s izel4Po int 

sizelSPoint 

size24Point 

s IzeHax 



r font IDs to be used 
fIDSysteffl 



fID20Pltch 

fIDlSPitch 

fIDml2Pitch 

flDcl2Pitch 

fIDmlOPitch 

fIDclOPitch 

fIDml2Point 

fIDcl2Point 

fIDml4Point 

fIDcl4Point 

fIDmlSPoint 

fIDclSPoint 

fI0ffl24Point 

fI0c24Point 

f IDRul ers 

{font IDs below th 
will prln 
fIDSysPattems 
flDSysCursors 
fIDLT20Graphlc$ 
fI0LT12Graphlcs 
fIOLT20Taxt 
fIDLT12Text 
riOOesk Icons 
fIDJiW 

fIDCalculator 
fIDIconName 
fIDttarker 
flDLisaOulde 



8 Point 20 Pitch 

8 Point 15 Pitch 

10 Point 12 Pitch) 

12 Point 10 Pitch) 

12 Point proportional 

14 Point proportional' 

18 Point proportional' 

24 Point proportional' 



NOTE: 
NOTE: 



Modem available only) 
hodem available only) 



in Qu 
0; 



19; 

7 

8 
13 

9; 
14 

4 
10 
15 
16 

5 
11 

6; 
12; 

25; 



IckDrau) 
{Resetved for appl Icat ion generated text, 
does not print properly) 



that cannot be edited by usen 



{Ruler Icons) 



s 1 ine are to be used only in special cases, there is no guarantee that these 
properly) 



2 
3 
23 
17; 
27; 
26 
22; 
1 
18 
21 
20; 
24; 



System Patterns, ie. LisaOrau) 
System Cursors) 

LisaTenBinal 20 Pitch VTIOO graphics) 
LisaTerminal 12 Pitch VTIOO graphics) 
LisaTerwinal 20 Pitch VTIOO text) 
.LisaTerminal 12 Pitch VTIOO text) 
'Desktop Icon font) 
Window Manager font) 
Calculator font) 
' Icon Name font) 
Marker Font) 
LisaGuide Font) 



TYPE 



TFontlDArray ■ ARRAY{ famM in. . famMax, sizeMia . sizeMax] OF INTEGER; 

TScaler • 

RECORD {scale-definition) ' . 

numerator. point; {numerator, h DIV denominator, h is the scale factor in horiz direction) 

denominator point; (numerator, v DIV denominator, v is tha scale factor in the vert, direction) 

END: 

TRectCoords • ARRAY{ FALSE. . TRUEJ OF Point; {TRectCoord$(aRect){ FALSE] ■ aRect. topLe ft; {TRUE) ■ bot Right) 
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UDRHW.IEXT 



Poge 



111 

112 
115 
114 
115 
116 
117 
IIB 
119 
120 
121 
122 
125 
124 
12S 
126 
127 
128 
129 
150 
151 
152 
155 
154 
155 
156 
157 
158 
159 
140 
141 
142 
145 
144 
145 
146 
147 
148 
149 
150 
151 
152 
155 
154 
155 
156 
157 
158 
159 
160 
161 
162 
165 
164 
165 
166 
167 
168 
169 
170 
171 
172 
175 
174 
175 
176 
177 
178 
179 
180 
181 
182 
185 
184 
185 
186 
187 
188 
189 
190 
191 
192 
195 
194 
195 
196 
197 
198 
199 
200 
201 
202 
205 
204 
205 
206 
207 
208 
209 
210 
211 
212 
215 
214 
215 
216 
217 
218 
219 
220 



LPolnt 



R£CORO 

CASE INTEGER OF 



END; 



0: (v, h: LOMG.INT); 



vtv ARRAY [VHStlact] OF LONG INT) 



LRact - 



RECORD 

CASE INTEGER OF 

0: (top, l«n, bottom, right: LONGINT); 

1: (topLsft. botRight: LPolnt) 
END; 

LP«tt«m - PACKED ARRAYt 0. . 7] OF 0. . 255; 

TLRect Coords - ARRAY[ FALSE. . TRUE] OF LPolnt; {TLR*ctCoords(anLRect)[ FALSE] - anLRect. topLeft; ate.} 

TEnuoAct Ions ■ (lEras*. rFr»in*, rBackground, iDrau); 
TActlons - SET OF TEnunAct Ions; 

THlghTmnslt - (hNono, hOrnoOlm, hOffToOn, hDimToOn, hDlmToCff, hOnToOff, hOnToDlm); 

{Rafresh assuws that th« last four and only th* last four start ulth al ready- hlghl Ight ad stuff) 

TEnuRfiasizabll Ity • (usarCanRasizalt. uindouCanRfslzelt); 
TFontRacord ■ 



TRaslzablllty <■ SET OF TEnunRaslzabll ity; 



(arg for TBranchAraa. CREATE & TPanel. Divide] 



PACKED RECORD 

CASE BOOLEAN OF 

FALSE: ( fontNuNC 
TRUE: (fontFamlly: 
fonts lz«: 

END; 

TTypeStyle ■ 

RECORD 
{$IFC LlbraryVarsion <- 20} 

onFaces: TSatafaca; 
(SELSEC) 

onFacas: Stylr, 

{$ENX} 

font: TFontRacord; 

END; 

TAraa - SUSaASS OF TObjact 



INTEGER); 

Byta: 

BytaJ 



[Variables) 
innarRact: 
outerRact: 
pa rent Branch: 



Ract; 
Ract; 
TBranchAraa; 



fulndouC usually) -relative bounds excluding borders) 
{bounding box in ancestral coordinates) 
[only used for TPanals and TBranchAraas) 



(Creation/Destruction) 
FUNCTION TAraa. Cf^ATE( object: TObjact; heap: THaap; ItsRect: Ract): TAraa; ABSTRACT; 

(Attributes) 
FUNCTION TAraa. ChlldyithPt(pt: Point; chlldLlst: TList; VAR nearest Pt: Point): TAraa; 
PROCEDURE TArea.GatBorder(VAR border. Ract); DEFAULT; 

{Return the deltas of the border bars, etc. ( outer- Inner-^border)) 
uindous, bands, panes: 1 all around; 
panels: 1 on left/top, scroll bars on right /bottom] 
PROCEDURE TArea. GatHlnExtent(VAR ninExtent: Point; uindouIsResizingIt: BOOLEAN); ABSTRACT; 
PROCEDURE TArea. SetOuterRectfneuOuterRect: Rect); 
PROCEDURE T A rea. Set Inne rRect ( neu I nrm rRect : Rect ) ; 



{DisplavJ 
PROCEDURE TAraa. Erase; 



{Other methods assume grafPort, origin, & cl Ipplng uere preset by Focus] 



PROCEDURE TArea. Focus 
PROCEDURE TArea. Frame; 



(Erase the interior] 
AoSTRACT" 

(Set up' the grafPort for this uindou or pad] 
DEFAULT; 

(Drau outlines, scroll bars, etc. outside the bounding box] 
PROCEDURE TArea. Re frashCrAct ions: TAct ions; highTransit: THighTransit); ABSTRACT; 



(Buttoning] 

FUNCTION TAraa. DounAt(mousePt: Point): BOOLEAN; ABSTRACT; 

(Resizing] 
PROCEDURE TAraa. Resize Ins ide( neu Inne rRect: Rect): ABSTRACT; 
PROCEDURE TAraa. Res izaOutsida(nauOuterRect: Ract); ABSTRACT; 

END; 



TPad - StBCLASS OF TAraa 



(Variables] 




port: 


GrafPtr 


viauedLRect: 


LRect; 


vlsLRect: 


LRect; 


avail LRect: 


LRect; 


scroll Offset: 


LPolnt; 


origin: 
cdOffset: 


Point; 


LPolnt; 


cl ippedRect: 


ract; 


padRes: 


Point; 


V iauedRes: 


Point; 


seal ed: 


BOOLEAN; 


scaleFactor 


TScaler 


zooeFactor 


TScaler 



the GrafPort used by this pad] 

The portion of viau that Is displayed in InnerRect] 
vieue(ft.Rect sect visRgn uh lie focused] 
The larger part of vteu that fits in a 16-blt Rect] 
The distance scrolled from the vieu topLeft] 
tilhat to set the grafport origin to uhen focused) 
liihat to subtract from coordinates to get port coords) 
.additional clipping to apply at Focus time] 

(spots/inch in the pad coordinate space] 
(spots/Inch in the 52-bit space being projected) 

{the net scale factor, combining zooming] 
(and aspect ratio, etc.] 



(Craat ion/Dastruct ion] 
FUNCTION TPad. CREATEC object: TObject; heap: THeap; ItsInnerRect: Rect; ItsVieuedLRect: LRect; 
ItsPadRes, itsVieuRes: Point; 
itsPort: GrafPtr): TPad; 

PROCEOLKE TPad. Redeflna( ItsInnerRect: Rect; itsViauatajtact: LRect; 



ibu nuy 



jkoat J.U. nt,, I 



uuKnn. iCJLi 
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ItsPadRas, itsViswRvs: Point; 
ItsZooiTacter TScaltr; itsPort: GnifPtr): 

rcoordinats Happlno — ortfPort to viau} ,^ , , 

PROCEDURE TP«d.DT$tToLDl$t{dl$lInPorf. Point; VAR IDist InVl«u: LPoint); 
PROCEDURE TPtd.P«tToLP*t(patInPort: P«tt«m; VAR IPatlnViow: LPattom); 
PROCEDURE TPtd PtToLPtfpt InPort: Point; VAR 1 Pt InV low. LPoint); 
PROCEDURE TP«d R^tToLR»ct( r»ct InPort: Roct; V« 1 Roct InV iou: LRoct); 

{C«frdinat« Happing — vlau to arafPort} 
PROCEDURE TPadlJiist Too ist( I oTstlnViao; LPoint; WAR dist InPort: Point); 
PROCEDURE TPadLPatToPatn Pat InViaw LPattam; WAR pat InPort: Pattam); 
PROCEDURE TPadLPtToPtnPtlnV/lau: LPoint; VARptlnPort: Point); 
PROCEDURE TPadLR«ctToR*ct(lRactlnV law LR^rt; WAR ractlnPort: R«;t}; 



{Scroll inol 
PROCEDURE 
PROCEDURE 



PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



TPadOffs»tBy(d«ltaLPt: LPoint); {offsat viauadLRect — no affact on display) 
TPad Sat Scroll Of f$at( VAR nahtOffsat: LPoint); 

{racalculatas tha origin and cdOffsat fialds; doas not changa arg} 



TPad 01 ipTurtharTof rfiand ract): 

TPad Focus; OVERRIDE; 

TPad Inval LRact( r LRact) ; 

TPad Inva] Ract( r Ract) ; 

TPad Sat Pan( pan: PanStata); {NB; 



{narrows doun cl ip araa at naxt Focus} 

{Forca radrau of r at naxt updata} 
- la] 



(Forca radrau of r at naxt updata 
Ma should latar augaMtnt this so that it scales 
pans izas} 
TPadSatPanToHighl ight(highTransit: THighTranslt); {SatPanStata to highlight this way} 



PROCEDURE 

PROCEDURE TPad SatZooii^actor(zooMNu«arator. zoo«Dano«inator point); DEFAULT; 



(D rawing) 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



{Procass taraination and Oabugging Assistance) 
PROCEDURE TPad Crash; ABSTRACT; 
FUNCT ION TPad B indHaap( act i vaVsCl ip, doB ind BOOLEAN) : 

END; 

TBranchAraa • SUBCLASS OF TAraa 



TPadOrauLTaxt(taxtBuf: Ptr, startByta, nuaSytas: INTEGER): 

TPadDrawLLina(nauLPt: LPoint); 

TPad OrauLPictura( pic: PicHandla; r LRact); 

TPad. OrauLRact(varfo: GrafVarfo; r LRact): 

TPadOrauLRRact(varb: CrafVarb; r LRact; ovalUidth, ovalHaight: INTEGER); 

TPadOrauLOvaUvart: GrafVarfo; r LRact); 

TPadDrauLArc(varb: GrafVarfo; r. LRact; startAngla. arcAngla: INTEGER); 

TPad 0rauL6its(VAR srcB its: Bithap; VAR srcRact: Ract; 

VAR dstLRact: LRact; aoda: INTEGER; MskRm: RgnHandle); 



THaap; ABSTRACT; 



(Variables) 
arrangafnant: 
alderFirst: 
resizability: 
clderChild 
youngerChild 



VKSal act; 
BOOLEAN; 
TResizabil ity; 
TAraa; 
TArea; 



{V means above one another) 
TRUE IFF eldarChild is above or to the left of youngerChild) 



fCreat ion /Destruction) 
FUNCTION TBranchAraa. CREATE( object: TObject; haap: THeap; vhs: VHSelect; hasElderFirst: BOOLEAN; 

uhoCanRes ize It: TRes izab il ity; 
itsElderChild itsYoungerChild TArea): TBranchArea; 

{Attributes) , 

PROCEDURE TBranchArea. GetHinExtent{VAR alnExtent: Point; uindouIsResizingIt: BOOLEAN); OVERRIDE; 
FUNCTION TBranchArea. OtherChild( child: TArea): TArea; 
PROCEDURE TBranchAraa. ReplaceChild( child nauChild TAraa); 
FUNCTION TBranchAraa. TopLaftChild TArea; 



(Resizing) 

PROCEDURE TBranchAraa. Res izaOut s ida( nawOuterRact: 

PROCEDIX^E TBranchAraa. Red ivida{nauCd INTEGER); 

END: 



Ract); OVERRIDE: 



VAR 



aaPrinting: 

zaroPt: 

zaroRect: 

hugaRect: 

zeroLPt: 

zeroLRect: 

hugeLRect: 

orthogonal : 

highPea- 

IPatUhite: 
1 Pat Black: 
1 Pat Gray: 
IPatLtGray: 
IPatDkGray: 

focus Stack: 

focusStkPtr 

focusArea: 

focusRgn: 

padRgn: 

altvTsRgn: 

usaAI tVisRgn: 

thaPad 

noPad: 
crashPad: 



(Iff TRUE, ue are currently printing rather than drawing) 



ffo:oj-(0,0) 
{(0.0)-(»1AXl 

(0.0)) 

{o.oi-ro.o) 

(O.O)-(HAXL 



'INT/2.HAXINT/2)) 



BOOLEAN; 

Point; 

Ract; 

Ract; 

LPoint: 

LRact; 

LRact: 

ARRAY [v. .h] OF VHSelect; (Haps v to h and vice versa) 

ARRAY [THi^Transitl OF PenState; (standard hij^l Ight- feedback transitions) 

LPattam; 
LPattam; 
LPattam; 
LPattam; 
LPattam; 

ARRAY ri. .10] OF TAraa; 

INTEGER; 

TArea; 

RgnHandl e; 

RgnHandl e; 

RgnHandl e; 

BOOLEAN; 

TPad 

TPad 
TPad 



lNT/2,NAXLINT/2)) 



Haps to QuickDraw pattem white) 
Haps to QuickDraw pattem black) 
Haps to QuickDraw pattem gray) 
Haps to QuickDraw pattem ItGrayl 
Haps to QuickDraw pattem dkGray) 

PushFocus pushes and PopFocus pops focusArea) 

Index of last thing on focusStack) 

Tha currently focused area) 

either padRgn or visRgn) 

intersection of pane and visRgn) 

If useAltVisRgn. use this instead of visRgn in Focus) 

If TRUE, use altVisRgn instead of visRgn in Focus) 

focusArea. if a TPad alse NIL) 

[naps every point to itself) 

[an object willing to handle process termination) 
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sc r — nR« s: 

sysTypaStylr. 

prtntarPsaudoPort: 

cAn«: 

cPad 

cBranchArvK 



Point; {scn*n resolution, pixels per inch} 

TTyp«Styl«; {systMi font, nciml face} 

CrafPtr, 

TCI ass; 
TCI ass; 
TCI ass; 



{the next four are declared EXTERNAL in U0BJECT2} 

moCEDURE InitOOWH; 

PROCEDURE TrentExceptionHandlen 

PROCEDURE InitErrorM>ort( error. INTEGER); 

r$]FC fDbgOrauT 

JUNCTION BlndHeap(activeVsClip, doBind: BOOLEAN): THeap; 

CSENOC) 

PROCEDURE Reduce(VAR nuMrator, denoMinator. INTEGER); {reduce fraction to lowest terms} 

FUNCTION FPtPlusPt( operandi. operand2: Point): L0N6INT; 
FUNCTION FPtninusPt( operandi, operand2: Point): LONGINT; 

FUNCTION FPtHulIntr operandi: Point; operandi INTEGER): LONGINT; 
FUNCTION FPtDivInt( operandi: Point: <^>erand2: INTEGER): LONGINT: 

{e.0-: center :- Point{FPtDlv Int(POINT(FPtPlu$Pt{ pi. p2)). 2); 



{ p5 :• Polnt(FPtPlusPt(pl. p2)); 

I F stands for FUNCTION } 



) 



FUNCTION FPtHaxPtf operandi, operandi Point): LONGINT; 
FUNCTION FPtHinPt( operandi, operand2: Point): LONGINT; 

FUNCTION FDiagRect( operandi: Rect): LONGINT; 

PROCEDURE BoolToStr(bool: BOOLEAN; str TPstring); 

FUNCTION LIntDivLIntCi, 1: LONGINT): LONGINT; 
FUNCTION LIntOivIntri: LONGINT; j: INTEGER): LONGINT; 
FUNCTION Llntnullnt(i: LONGINT; J: INTEGER): LONGINT; 

FUNCTION LIntOvrInt(i: LONGINT; j: INTEGER): LONGINT; 
{This returns LIntDivIntM*n Diy 2). J) if i>0 and 



{ each coordinate is max' ed separately } 
{ FPtHinu$Pt(botRight-topLeft) } 



LIntDivInt{ 



B: 



DIV 2). j) if i<0) 



PROCEDURE PtPlu$Pt( operandi. operand2: Point; VAR result: Point): 

PROCEDURE Ptf11nusPt( operandi, operand2: Point; VAR result: Point); 

PROCEDURE PtMul Int( operandi: Point; operand2: INTEGER; VAR result: Point); 

PROCEDURE PtDivInt( operandi: Point; operandi INTEGER; VAR result: Point); 

{$IFC Libra ryVers ion <• 20} 

FUNCTION Equal Pt( operandi, operand2; Point): BOOLEAN; {Uill be in QuickDraw eventually} 

{$ENDC} 

PROCEDURE RectPlusRect( operandi, operand2: Rect; VAR result: Rect)- 

PROCEDURE RectHinusRect( operandi, operand2: Rect; VAR result: Rect); 

{SIFG LibraryVersion <■ 20} 

FUNCTION Equal Rectr rectA, rectB: Rect): BOOLEAN; {UiU be in OuickDrau eventually} 

FUNCTION EiiiptyRect(r Rect): BOCM^AN; {Will be in OuickDrau eventually} 

{SENDC} 

PROCEDURE AlignRect( VAR dstRect: Rect; srcRect: Rect; vhs: VHSelect); 

FUNCTION LengthRect(r Rect; vhs: VHSelect): INTEGER; 

FUNCTION RectHasPt( dstRect: Rect; pt: Point): BOOLEAN; 

PROCEDURE RectHavePt( dstRect: Rect; VAR pt: Point); {change pt so that topLeft <> pt <- bolRight} 

FUNCTION RectsNe$t( outer, inner. Rect): BOOLEAN; 

PROCEDURE Rect ifyRect( VAR dstRect: Rect): {exchange coordinates until topLeft 

FUNCTION Rect I$Visible( rect InPort: Rect): BOOLEAN; 



bot Right) 



PROCEDURE PointToStr(pt: Point; str TPstring); 
PROCEDURE RectToStr(r Rect; str TPstring); 



{Referenced as EXTERNAL by UABC2} 
{Referenced as EXTERNAL by UABC2} 



PROCEDURE LPtPlusLPt( operandi. operand2: LPolnt; VAR result: LPoint): 
PROCEDURE LPtMinu$LPt( operandi. operand2: LPoint; VAR result: LPoint); 

PROCEDURE LPtMul Int( operandi: LPoint; operand2: INTEGER; VAR result: LPoint); 

PROCEDURE LPtDivInt( operandi: LPoint; operand2: INTEGER; VAR result: LPoint); 

FUNCTION Equal LPt( operandi, operand2: LPoint): BOOLEAN; 

PROCEDURE LRectPlusLRect( operandi. operandZ- LRect; VAR result: LRect): 

PROCEDURE LRectNinusLRect( operandi. operand2: LRect; VAR result: LRect); 

FUNCTION Equal LRect (rectA, rectB: LRect): BOOLEAN; 

FIMCTION EMptyLRect(r LRect): BOOLEAN; 

PROCEDURE Al lgnLRect( VAR destLRect: LRect; srcLRect: LRect; vhs: VHSelect); 

FUNCTION LengthLRectf r LRect; vhs: VHSelect): LONGINT; 

FUNCTION LRectHasLPt( destLRect: LRect; pt: LPoint): BOOLEAN; 

PROCEDURE LRectHaveLPt( destLRect: LRect; VAR pt: LPoint); {change pt so that topLeft <- pt <» botRight) 

FUNCTION LRectsNest( outer, inner LRect): BOOLEAN; 

PROCEDURE Recti fyLRectf VAR destLRect: LRect); {exchange coordinates unt il topLeft <- botRight} 

FUNCTION LRect IsVisible( srcLRect: LRect): BOOLEAN; 



PROCEDURE LPoint ToStr(pt: LPoint; str TPstring); 
PROCEDURE LRectToStr(r LRect; str TPstring); 



{Referenced as EXTERNAL by U0BJECT2} 
{Referenced as EXTERNAL by U0BJECT2} 



PROCEDURE SetLPt{VAR destPt: LPoint; itsH, itsV: LONGINT); 

PROCEDURE SetLRect(VAR dstRect: LRect; itsLeft, itsTop, itsRight, 

PROCEDURE OffsetLRect(VAR dstRect: LRect; dh, dv: LONGINT); 

PROCEDURE InsetLRect(VAR dstRect: LRect; dh, dv; LONGINT); 

FUNCTION S*ctLRect(srcRectA, srcRectB: LRect; VAR dstRect: 

PROCEDURE UnionLRectfsrcRectA, srcRectB: LRect; VAR dstRect: 

FimCTION LPtInLRect(pt: LPoint; r LRect): BOOLEAN; 

FUNCTION IsSaMl I Pt(srcPt: LPoint): BOOLEAN; 
FUNCTION IsSMllRectCsrcRect: LRect): BOOLEAN; 

(•PROCEDURE CI ipLRect(r LRect); {Not yet inpl«MntabIe}*) 

{Drawing text} 



itsBottoiR LONGINT); 



LRect): BOOLEAN; 
LRect); 
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477 
478 
479 
480 
481 
482 
485 
484 
485 
486 
487 
488 
489 
490 
491 
492 
495 
494 
495 
496 
497 
498 
1 
2 
499 
500 
501 
502 
505 
504 



PROCEDURE Or«gLT«xt(t«xtBuf: Ptr, $t«rtByt«. nuMBytts: IKTECER); 

{Drawing I Inas, r«ctanol*s. and ovals} 

PROCEDURE novaToL(h, v: LONGINTl 

PROCEDURE novaL(dh, dv: LONG INT 

PROCEDURE Ltn«ToL(K v: LONG INT 

PROCEDURE_Lin«L(dh, dv: LONG INT) 

PROCEDURE. FraMaLR*ct(r LRact) 
PROCEDURE -Pa int LRact ( r LRact) 
PK>CEDURE 'ErasaLRactf r LRact) 
PROCEDURE InvrtLRact(r LRact). 
PROCEDURE FniLRact(r LRact; IPat: LPattam}; 

PROCEDURE FranaLOvaHr. LRact) 

PROCEDURE PaintLOvalir LRact) 

PROCEDURE ErasaLOvalfr LRact) 

PROCEDURE InvrtLOval ( r. LRact). 

PROCEDURE FUlLOval (r. LRact; 1 Pat: LPattam); 

PROCEDURE FramaLRRactrr LRact; ovalWidtK ovalHaight: INTEGER) 

PROCEDURE PaintLRRactfr. LRact; oval Width, ovalHaight: INTEGER) 

PROCEDURE ErasaLRRact( r LRact; ovalMldth, ovalHaight: INTEGER) 

PROCEDURE InvrtLRRactC r LRact; ovalMidtK ovalHaight: INTEGER). 

PROCEDURE Fill LRRact(r LRact; ovalWidtK ovalHaight: INTEGER; IPat: LPattam); 

PROCEDURE FramaLArcfr LRact; startAngla, arcAngla: INTEGER) 
PROCEDURE PaintLArcfr LRact; startAngla, arcAnglr. INTEGER) 
PROCEDURE ErasaLArcfr. LRact; startAngla, arcAngla: INTEGER] 
PROCEDURE InvrtLArc(r LRact; startAngla, arcAngla: INTEGER) 
PROCEDURE FilILArc(r. LRact; startAngla, •rcfrtsfim INTEGER: 



IPat: LPattam); 



FUNCTION ClonaPictura(pic: PicHandla; toHaap: THaap): PicHandla; 



PROCEDURE RasizaFaadback(iiiousaPt: Point; HinPt, aiaxPt: 
tabHaight, sbUidt^ sbHalght: 



Point; outerRect: Ract; 
INTEGER; WAR nauPt: Point); 



PROCEDURE PushFocus; 
PROCEDURE PopFocus; 



rsava old foctisAraa on focusStack) 

{Rastore old focusAraa fro« focusStack and focus on it} 



itsSiza: INTEGER; 



itsSiza: INTEGER; 



{$IFC LIbraryVarsion <- 20} 

PROCEDURE nakaTypaStyla(itsFamily: INTEGER; 

itsFacas: TSatEFaca; 

VMR typaStyla: TTypaStyla); 
fSELSEC) 
PROCEDURE HakaTypaStyla{itsFa«ily: INTEGER; 

ItsFacas: Style; 

VAR typaStyla: TTypaStyla); 
{$EN0C} 

FUNCTION 0DFontNui«bar( typaStyla: TTypaStyla): INTEGER; 
PROCEDURE SatODTypaStylaC typaStyla: TTypaStyla); 

IMPLEMENT AT ION 

{$1 1 ibtk/U0RAW2. TEXT} 



END. 
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1. 1 Ibtk/udrau. TEXT 
Z I lbtkA>0RAU2 TEXT 



Al IgnLRect 
Al IgnRect 
•1 tVisRgn 
MPrlnt Ing 
arrang»imnt 
•va 11 LRect 



-C 



-D- 
dtnofflinator 
OistToLOist 
DounAt 
DrauLArc 
DrauLBits 
DrauLLine 
Drahrt.Oval 
DrauLPicture 
DrauLRact 
OrauLRRect 
OrauLTaxt 

-E- 

•IderChiid 

•Idcifirst 

EnptyLRect 

EmptyRect 

Equal LPt 

Equal LRect 

Equal Pt 

Equal Ract 

Erase 

EraseLArc 

EraseLOval 

ErasaLRect 

EraseLRRect 

Evants 

-F- 

famClassic 

famHax 

fawMln 

famHodem 

fafflSystem 

FOiagRect 

flDlSPitch 

fI020Pitch 

fIDclOPitch 

fIDcl2Pltch 

fIDcl2Point 

flOclAPoint 

flOclSPoint 

fI0c2APoint 

fIDCalculator 

flOOesk Icons 

flOIconName 

riDLlsaGuide 

flOLT12Graphic$ 

flOLT12Taxt 

fIOLT20Graphlcs 

fI0LT20Text 

flDwlOPitch 

flOml2Pitch 

fIDml2Point 

flOmlAPoint 

fIDmlSPoint 

fIDm24Point 

flDtlarkar 

fIDRulers 

flDSysCursors 

f IDSysPattems 

fIDSystam 

fIDUfI 

F 11 arComm 

Fill LA re 

FillLOval 

Fill LRect 

FlULRRect 

Focus 

focus Area 

focusRgn 

focusStack 

focusStkPtr 

Folders 

font 

font Family 

FontMgr 

fontNuffi 



415' 
591- 
525* 

500- 
275 
201' 



BlndHeap 


266 


Bool Tost r 


366' 


botRight 


122- 


bottom 


121 


Byte 


142 


cAraa 


538 


cBranchArea 


540 


cdOffset 


204 


ChildWithPt 


167- 


CI ipFurtherTo 


245 


d IppedRect 


205- 


ClonePicture 


475 


cPad 


559 


Crash 


265 


crashPad 


550 


CREATE 


164 



106- 
226* 
186- 
260" 
261' 
255' 
259* 
256' 
257' 
258* 
254* 



276* 
274- 
411- 
588' 
406' 
410- 
581- 
587' 
177- 
471- 
459* 
455- 
465* 
50* 



47« 

48* 

45* 

46' 

45' 

564* 

67" 

66- 

71- 

69' 

75' 

75* 

77* 

79" 

95" 

91- 

94- 

96- 

88' 

90' 

87* 

89* 

70' 

68' 

72' 

74' 

76' 

78' 

95' 

81' 

86' 

85' 

64' 

92' 

52' 

475' 

461' 

455- 

467' 

179' 

522' 

525' 

520' 

521' 

51- 

155- 

142" 

24" 

141' 



549* { 1) 
145 ( 1) 



216*( 1) 280-{ 1) 



442* ( 1) 



101 
101 



iii 



244«( 1) 



28- { 1) 
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Page 



fontSlz* 

FPtDivInt 

FPtMaxPt 

FPtmnPt 

FPtMlnusPl 

FPtHul Int 

FPlPlusPt 

Fraiw 

FraiiwLArc 

FniMLOval 

Frtii»LR»ct . 

FraatLRRact.^ 

-G- 
GatBordar 
GatMinExtant 
GrafPtr 



-H- 



hDimToOff 

hOimToOn 

highPan 

hNona 

hOffToDlm 

hOffToOn 

hOnToDlm 

hOnToOff 

hugeLRect 

hugeRact 



I- 



InltErrorAbort 
InltOOUM 
InnarRect 
Inset LRect 
INTRINSIC 
Inva) LRect 
Inval Rect 
InvrtLArc 
InvrtLOval 
Invrt LRect 
InvrtLRRect 
IsSmal 1 Pt 
IsSmal 1 Rect 

-L- 

LDistToDist 
left 

LengthLRect 
LangthRcct 
LineL 
LineToL 
L Into iv Int 
LIntDlvLInt 
LInttlul Int 
LlntOvrlnt 
I Pat Black 
IPatOkGray 
1 Pat Gray 
IPatLtGray 
LPattem 
LPatToPat 
-atUhite 
^Point 
LPointToStr 
LPtDivInt 
LPt InLRect 
LPtMinusLPt 
LPtMul Int 
LPtPl usLPl 
LPtToPt 
LRect 

LRect HasLPt 
LRect Ha veLPt 
LRect IsV is ible 
LRectMinusLRect 
LRect PI usLRect 
LRect sNest 
LRect ToRect 
LRect ToStr 

-H- 
HakeTypeStyle 
HoveL 
HoveToL 

-N- 
noPad 
nunerator 

-0- 
OffsetBy 
Offset LRect 
or^aces 
origin 
orthogonal 
OtherChild 
outerRect 

-P- 
padRes 
padRgn 
PalntLArc 
PaintLOval 
Pa Int LRect 
PaintLRRect 
parentBranch 
Pasl ibCal 1 
PatToLPat 



X4S' 
358' 

561" 
562' 
555' 

557' 
S54< 
IBl- 
469' 
♦57' 
♦51' 
485- 



168' 
172" 
198 



114" 

152* ( 

152* 

512* 

132' 

132- 

132' 

132- 

132* 

308* 

304* 



347* 
345* 
159 
427* 
9* 
245" 
246* 
472' 
460* 
454* ( 
466* 
433* 
434* 



232" 
121* 
414' 
392* 
449' 
448' 
3e9« 
368* 
370* 
372* 
315* 
318* 
316* 
317* 
125* 
233* 
314* 
111* 
421* 
405* 
430* 
403* 
404* 
402* 
234* 
118* 
415* 
416* 
419* 
409* 
408* 
417* 
235* 
422* 



484' 
447* 
446' 



329* ( 
105*( 



238* 
426* 
149* 
203* 
310* 
286* 
160* 



207* 
324* 
470" 
458* 
452* 
464* 
161* 
20* 
227*( 



285*( 1) 
536 ( 1) 

310 ( 1) 



314 { 1) 315 ( 1) 316 ( 1) 317 ( 1) 318 ( 1) 
122 ( 1) 127 ( 1) 202 ( 1) 204 ( 1) 306 ( 1) 



199 (1) 200 ( 1) 201 ( 1) 307 ( 1) 308 ( 1) 



488*( 1) 



151*( 1) 
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PanState 


512 








PicHandl* 


♦75 








Potnt 
point 
PointToStr 


109 
105 




205 ( 1) 207 ( 1) 208 ( 1) 502 ( 1) 552 ( 1) 
106 ( 1) 




599* 








PopFocus 


♦Bl- 








port 
PPasLlbC 


iss 








21» 








prlntarPsoudoPor 
PtOlvInt 


556- 








579- 








PtMinusPt 


577* 








PtHul Int 


578» 








PtPlusPt . 


576' 




1 




PtToLPt 


228» 








PushFocus 


♦80* 




i , 




-0- 






OOFontNu<nb«r 


♦95* ( 1) 
26'( li 




QulckDrau 




-R- 

rSackg round 


129* 








rOrau 


129- 








R«ct 


159 




160 ( 1) 505 ( 1) 504 ( 1) 




r»ct 


205 








R»ctHa$Pt 


595- 








RtctHavePt 


594- 




■ 




R»ct i f yLRact 


418- 








R«ct i f vRact 
RsctlsOisibla 


596- 








597- 








RactMinusRect 


585- 








RactPl usRact 


584- 








RactsNest 


595- 








RactToLRact 


229- 








RactToStr 


400- 








Radafina 


220- 








Radivida 


292- 


d 






Raduca 


552- 


« 






Rafrash 


185-f 1 






RaplacaChild 


287-1 1 






zCrasa 


129- 1 






rasizabil ity 


275- ( 1 






RasizcFaedback 


477-( 1 






Ras iza In$ Ida 


189- 1, 






RasizeOutsida 


190-( 1 


291-( 1) 




rframe 


129-( 1 






FtainHandla 
rioht 


525 1 1 
121-{ 1 


524 ( 1) 525 C 1) 




-S- 






scal ad 


210-( 1] 






seal aF act or 


211-f 1 






scraenRes 


552-( 1 






scroll Offset 


202- ( 1 






SactLRect 


428* ( 1 






Sat InnarRect 


174- ( 1 






SatLPt 


424-( 1 






SatLRect 


425- i 1 






SatOuterRect 


175-( 1 






Sat Pan 


247-} 1 






SatPenToHighl igh 


249- ( 1 






SatOOTypeStyla 


494- ( 1 






SetScroll Offset 


259- ( 1 






SatZooinFactor 


25i-( i; 






sizalOPltch 


56- ( 1 






$lzal2Pltch 


55-1 1 






sizal2Point 


57-( 1 






sizelAPoint 


58-( 1 






sizalSPltch 


54-r 1 






sizalSPoint 


59-( 1 






$iza20Pitch 


55-( 1 






$iza24Point 


60- ( 1 






s izaHax 


61-( 1 


101 ( 11 
101 ( 1 




sizatlin 


52- ( 1 




Style 


151 ( 1 






SysCal 1 


18-( 1 






sysTypeStyle 


554-( 1 






-T- 

TAct ions 


150-( 1) 




TAraa 


156- 
522 

161 




164 ( 1) 167 ( 1) 195 ( 1) 270 ( 1) 276 ( 1) 277 ( 1) 286 ( 1) 288 ( 1) 320 ( 1) 


TBranchArea 


1 


270- ( 1) 282 ( 1) 
559 ( 1 540 ( 1 




TCI ass 


558 






TEnumAct ions 


129- 


l' 


150 1 




TEnunRes izab il it 


155- 


x' 


156 ( 1 




TFont IDArray 


101- 


1 






TFont Record 


158- 


X' 


155 ( 1) 

549 ( i: 




THaap 


266 






thaPad 


527- 








THighTransit 


152- 




512 ( 1) 




TLRact Coords 


127- 


■ 1; 




TObJact 


156 








top 


121- 








topLaft 


122- 








TopLa ft Child 


288- 








TPad 


195- 


l' 


218 ( 1) 527 ( 1) 529 ( 1) 550 ( 1) 




TRact Coords 


109- 








TRasizabil ity 


156- 


1 ' 


275 ( 1) 




T runt Except ionHa 


546- 


1' 






TScal ar 


105- 


1 


211 ( 1) 215 ( 1) 




TSatafaca 


149 


X' 






TTypaStyla 


146- 


1) 554 ( 1) 




-U- 
UDrau 


l-( 1} 




UnionLRact 


429- 1 




UnitHz 


16- : i; 




UnitStd 


15-{ 1 




UObjact 


17-( 1) 




V 
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uscAltVlsRgn 
usarCanRcs iz« It 



V 

vh 

VHSclect 

viMMdLRect 

vi«uedRes 

visLR»ct 



526»( 11 
>•( 1) 



155- 



114' 
115- 

lis 

199* 
208* 
200* 



510 ( 1) 

273 ( 1) 510 ( 1) 



_U- 



uindouCanRtsiztl 135*( 1) 
277- { 1) 



-Y- 

youngerChil3 



2»roLPt 

ztroLRect 

ztroPl 

zaroRect 

zoonFactor 



506* 
507- 
502* 
305* 
215- 



••• End Xref: 304 Icf $ 577 r»far»nca$ 



[422336 bytas/4695 id* s/43402 rafs] 
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1 

2 
5 

4 
5 

6 
7 
8 
9 
10 
11 
12 
IS 
14 
15 
16 
17 
18 
19 
20 
21 
22 
25 
24 
25 
26 
27 
28 
29 
50 
51 
52 
55 
54 
55 
56 
57 
58 
59 
40 
41 
42 
45 
44 
45 
46 
47 
48 
49 
50 
51 
52 
55 
54 
55 
56 
57 
58 
59 
60 
61 
62 
65 
64 
65 
66 
67 
68 
69 
70 
71 
72 
75 
74 
75 
76 
77 
78 
79 
80 
81 
82 
85 
84 
85 
86 
87 
88 
89 
90 
91 
92 
95 
94 
95 
96 
97 
98 
99 
100 
101 
102 
105 
104 
105 
106 
107 
108 
109 
110 



{UNIT UAecj 

(Copyright 1985, 1984, Appl* Co«put«r, 



Inc) 



METHODS NEED TO BE GROUPED INTO RIGHT CATEGORIES 
MX) wservt IN ALMOST EVERY CLASS — } 



TProc«$-TDocDlnK:tory-TDocM»nao«r-TCl ipbo«rt-T C oti w r)d-TCutCopvCommand-TP«sfCeiHm«nd] 
T Ii»o«-TVl«w-TP»Qin*t»dVl»u-TP»o»Vl»«-TPrlnttt«n«Q«r-TH«ading-TS«l ect ion) 



UAeC2. TEXT 

UABC5. TEXT 

UABC4. TEXT T«indow-TDl«loaBox-TH»nuB«r-TFontJ 

UABC5. TtXT TPtrwl -TB*nd-TPtn«-TMarQinPad-TBodyP«d-TScrol 1 •r-TScrol 1 Bar) 



UNIT UABCr 

{SSETC Is Intrinsic 

f$!FC Is Intrinsic) 

INTRINSIC; 

(SENOC) 

INTERFACE 



TRUE ) 



USES 



) UnitStd, 



^$U UnitStd 

SU UnitHz ) UnitHz, 

■$U libtkAK)b1«ct 1 UObjtct. 

*JU LIBOS/SysCall) SysCall, 



{Client should not USE UnitStd) 

ici " 



{$IFC LibraryVersion > 20) 
{$U LIBTK/Passud) Passud, 

{$ENOC} 

tSlFC LibraryVersion <• 20) 
f$U FontMgr ) FontMgr, 



lent should not USE UnitHz and MUST NOT USE Storage) 
{CI lent nust USE UObject) 
{Client May USE SysCall) 



{$ENDC) 

($U QulcKorau ) QuicKorau, 
{$IFC LibraryVersion > 20) 

{$U FontMgr ) FontMgr, 

{SENDC} 

($U 1 ibtk/UOrau ) UDrau, 



) PMDecl, 

<- 20) 
) PrStd, 



r$U PMDecl 
{$IFC 1 ibraryVer$ion'<- 20) 

{$U PrStd ' 

{SENDC) 

{SU m. Events } Events, 

■$U UM. Folders ' Folders, 
SU UM. Menus Menus, 

'$U AlertMgr j AlertMgr. 
{$!FC LibraryVersion <• 20) 

{$U PrProcs ) PrProcs. 
{SENDC) 

{SU UMLstd } WHLstd, 
$U UMLCrs WMLCrs. 

$U UMLSb ' WMLSb, 

SU UMLGrou ' Wr«.Grou, 

SU Scrap } Scrap, 
{SIFC 1 ibraryVersion <- 20) 

fSU PrtlgrUtil ) PitlgrUtil, 

[SU PrMgr ) PrMgr, 
{SELSEC) 

r$U PrStd Info) PrStdlnfo, 



{CI lent should USE UFont instead of FontMgr before QuickDraw) 
{Client must USE QuickDraw (unless ue provide a type-stub for it)) 
{Client should USE UFont instead of FontMgr after QuickDraw) 

{CI lent Must USE UDrau) 
{CI lent need not USE anything below this 1 ine) 
{PEPSI) 



{SPRING) 



, . PrPubl ic) 
{$£N6C} 

{$U FllerComn 

SSETC fDbgABC 
SSETC fRngABC 
SSETC fSymABC 



PiPubl ic, 
} FilerCoem; 



fObgOK 
fDbgOK 
rSynOK 



(FALSE 
FALSE 
FALSE 



{SSETC fDebugMethods : > fDbgABC) {if VAR also true, trace entries and/or exits) 



CONST 



{unfortunate, but menus aust be in non- relocatable storage, & this is easiest) 



51: 

11; 

6; 

$20000; {128K) 

52768; (52k) 



naxMenus 
maxFonts 
maxSegments 
naxSegSize 
abort Chunks ize 

iconNameSeparator • '<*; {character separating parts of an icon name) 



stdHHysteresis 
stdVHysteresis 

noCursor 

hiddenCursor 

arrouCursor 

crossCursor 

textCursor 

checkCursor 

SMCrossCursor 

fingerCursor 

f irstUserCursor 

nothingKind 

noCndNunber 

docLdsn 

docDsBytes 

docExcess 

printLdsn 
ascAruOown 
ascAruLeft 
ascAruR ight 



9; 
6; 

-2: 
-1 
1 
9; 
10; 
12 
15; 
14; 



100; 

0; 

0; 

5; 

5120; 

2048; 

2; 

$1F; 
$1C; 
$10; 



(amount the mouse must move from anchor before draa starts, unless) 
{ TSel ect ion. GetHysteres is is overridden) 

used uhen you do not set the cursor) 

icrsHidden Hides the cursor entirely) 

icrs Inactive Standard arrow cursor) 

IcrsLCCross LisaCalc cross) 

icrsXIBeam Standard text I-Beam) 

icrsCheck Checkmark) 

IcrsGECross LisaDrau cross (smaller than crossCursor)) 

icrsLFinger LisaOraw left -pointing finger) 

( this is the smallest user-defined cursor ) 



Idsn for the first document data segment) 

default heap size for a document data segment) 

the virtual data segment may be this much larger than needed for the heap} 



(Idsn to hand to LisaPrint) 
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111 — 

112 — 

113 — 

114 — 

115 — 

116 ~ 

117 — 

118 — 

119 — 

120 — 

121 — 

122 ~ 

123 — 

124 — 

125 — 

126 — 

127 — 

128 — 

129 — 

130 — 

131 — 

132 — 

133 — 

134 — 

155 — 

156 — 
137 — 

158 — 

159 — 

140 — 

141 — 

142 — 
145 — 

144 — 

145 — 

146 — 

147 — 

148 ~ 

149 — 

150 — 

151 — 

152 — 
155 — 

154 — 

155 — 

156 — 

157 — 

158 — 

159 — 

160 — 

161 ~ 

162 — 
165 — 

164 ~ 

165 — 

166 ~ 

167 — 

168 — 

169 — 

170 — 

171 — 

172 ~ 
175 ~ 

174 — 

175 ~ 

176 — 

177 ~ 

178 — 

179 — 

180 — 

181 — 

182 — 
185 — 

184 — 

185 — 

186 — 

187 -- 

188 — 

189 ~ 

190 — 

191 ~ 

192 ~ 
195 — 

194 — 

195 ~ 

196 — 

197 — 

198 — 

199 ~ 

200 — 

201 ~ 

202 — 
205 ~ 

204 — 

205 — 

206 — 

207 ~ 

208 — 

209 ~ 

210 — 

211 ~ 

212 — 
215 — 

214 ~ 

215 — 

216 ~ 

217 — 

218 ~ 

219 — 

220 ~ 



ascAruUp 

•scBackspac* 

•scClsar 

•scCntar 

•scRvtum 

«scT*b 

(alart phras* codes oust bt bctuMn 9 and 899} 



phWordOal iiiitars- 9; 



phTroabIa 

phUnknoun 

phNoTaxt 

phNoSal 

phNoInsPt 

phRavart 

phRavBl ank 

phUnkCnd 

phSal Cant 

phUnchanged 

phSav Ing 

phTarminatad 

phEditCl ip 

phNoCl ip 

phUnkCl Ip 

phO lal ogup 

phCantlMdo 

phNoCommand 

phOldarVersion 

phNauarVarsion 

phConvart ing 

phAbort ing 

phPage 
phTitIa 

phCantSava 
phCantRavart 

phCountry 



10 
11 
21 
22; 
25 
24 
25 
26 
27; 
28 
29; 
50; 
51 
52: 
55; 
54 
55 
56 
57 
58 
59. 
40 

41 
42; 

45: 



45; 



(Tha tool is having troubla} 
Phrasa(arror) is undafinad for this arror) 



{♦SW*) 



{command, sal act ion, and phrasa indicas usad by Dialog Building Block} 
uCraataLayoutBox - 701; {Command numbars} 
uHoveLayoutBoxas ■ 702; 
uCffldLaunchHaading > 705; 
uCmd Install Margins > 704; 



layPickKind - 119; 
layEditLegandKind - 155; 
framaKind » 161; 

phTooManyChars • 101; 
phOddEvan - 102; 
phOddOnl y - 105; 
phEvanOnly • 104; 
phOddOrEven - 105; 
phHinPaga - 106; 
phHaxPage « 107; 
phPageAI Ignment ■ 108; 
phAl ignment ■ 109; 
phTopLaft - 110; 
phTopCentar ■ 111; 
phTopRight - 112; 
phBotLaft - 115; 
phBotCenter > 114; 
phBotRight - 115; 
phLaunchHaad ing - 116; 
phPageMargins ■ 117; 
phUnits - 118; 
ph Inches ■ 119; 
phCent imetars ■ 120; 
phLeft - 121; 
phLaftClustar - 122; 
phTop > 125; 
phTopClustar • 124; 
phRight - 125; 
phRightClustar •> 126; 
phBottom - 127; 
phBotCluster > 128; 
phlnstallhargins - 129; 
phlnchTitle- 150; 
phCmT itl a - 151; 
i;M4euHeading - 152; {-^Shh-} 



{Select ion kinds} 



{Phrases} 



phOK • 142 
phCancel - 145; 



{client should NOT 1 ightly change the phrases for these, since they are used for) 
(determining text and locations of OK/Cancel buttons for built-in Tool Kit dialogs} 



(dimensions for default checkboxes) 



stdBoxUidth - 17; 
stdBoxHeight - 11; 
stdBoxSpacing ■ 20; 

stdCurvH -18; (for Buttons) 
stdCurvV • 14; 
stcffitnHeight - 22; 

noICW^ufflbar ■ -2; 
nold ■ '*; 

IDLength - 9; (the significant length of id strings} 

stdTitleHeight - 10; {for layout boxes} 

stdSl imTitleHeight - 6; 
stdLeftRightBorder - 5; 
sttSottoMBorder ■ 2; 

(errcodes of other 1 ibraries) 

erAborted - 4055; (user typed Apple-.; Desktop Hanager) 
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UHBC.TEn 



Page 



221 
222 
225 
224 

22S 
226 
227 
228 
229 
230 
251 
252 
253 
254 
255 
256 
257 
258 
259 
240 
241 
242 
245 
244 
245 
246 
247 
248 
249 
250 
251 
252 
255 
254 
255 
256 
257 
258 
259 
260 
261 
262 
265 
264 
265 
266 
267 
268 
269 
270 
271 
272 
275 
274 
275 
276 
277 
278 
279 
280 
281 
282 
285 
284 
285 
286 
287 
288 
289 
290 
291 
292 
295 
294 
295 
296 
297 
298 
299 
500 
501 
502 
305 
504 
505 
506 
507 
508 
509 
510 
511 
512 
515 
514 
515 
516 
517 
518 
519 
520 
521 
522 
525 
524 
525 
526 
527 
528 
529 
550 



•rOupl icat»N««M 
•rlnval icMaiw 
•rNanvNotFound 



890; 
971; 
972; 



OS & Desktop Managar' 
OS & Oasktop Hanagar 
OS ft Oasktop nanagar 



(Tool Kit arrCodas «ust b* batuMn 4201 and 4499} 



'•rPassvwrd 

•xVarsion 

arBadOata 

arCanlRaad 

arCanlVrita 

•rOirtyOoc 

aitk>HOr«Oocs 

arNoHaiiiory 

•rNoOiskSpaca 

arWrongPassword 

artlaxToolKlt 



4201 
4202- 
4205 
4504; 
4505 
4506 
4507; 
4508 
4509; 
4510; 
4499; 



(coMnand codas aust ba batuaan 101 and 999} 



uSatAllAsida 

uSatAslda 

uPutAuay 

uPrfmt 

uPrintAsIs 

uPrlnt 

uP monitor 

uSavaVars ion 

uRavart Van ion 

utSatAsida 

uSatCl ipAslda 

{Typing Buzzword} 
uTyping 

(Tha toolkit usas 

uBackspaca 

uEnter 

uForuardSpaca 

uRatum 

uTab 

{Tha toolkit usas 
uSonaCommand 
uScroll Ing 
uSpl itt ing 
uRas izaW indou 
uRes izaPanal 
UHousaPrass 
uThumb ing 
uHovaiil indou 
uKayOoun 

uCopy 

uCut 

uPaste 

uSal Al 1 

uUndoLast 

utUndoLast 

utRedoLast 

uClaar 

{$IFC LibraryVarsion 

uFntO 

uFntl 

uFnt2 

uFnt5 

uFnt4 

uFnt5 

uFnt6 

uFnt7 

uFnt8 

uFnt9 

uFntlO 

uFntll 
{SENDC} 

utiodam 

uCI ass ic 

u20Pitch 
ul5Pitch 
ul2Pltch 
ulOPitch 
ul2Point 
ul4Point 
ulOPoint 
u24Point 

uPlain 
uBold 
ultal ic 
uUndarl ina 
uShadou 
uOutl ina 
uSuparscript 
uSubscript 

uPrvuflarglns 
uPrvuBraaks 
uPrvuOff 
uOas ignPagas 

uShouFuIISiza 
uR«duca70Pct 
uRaducaToF it 

uSatHorzBraak 
uSatUartBraak 
uClaarBraaks 



101 
102 
105 
104; 
111 
105 
106; 
107 
108 
109; 
110; 



(Sat As Ida tOocumantT} 



(Undo ttast Changat} 
{Rado ft-ast Changat} 



150; 

tha following only as arguments to salaction. CantOoCnd} 

151; 

152; 

155; 

154; 

155; 

tha following only as argumants to procass. RamenbarConmand} 

156; 

157 

158 

159; 

160 

161 

162; 

165, 

164; (could ba Mada tha saiaa as uTyping} 

201 
202 
205 
204 
205 
206; 
207 
208 

<• 20} 

500; 
501; 
502; 
505; 
504; 
505; 
506; 
507; 
508; 
509; 
510; 
511; 

520 • fanflodem - faRiMin; 
520 * fanCiassic - fanhin; 

S50 ♦ $i2a20Pitch - sizaMin; (should rasult in 550} 

350 * sizal5Pitch - sizaHin; 

550 ♦ sizal2Pitch - sizaMin; 

550 * sizalOPitch - sizaMin; 

550 ♦ $izal2Point - sizaMin; 

550 ♦ sizal4Pelnt - sizaMin; 

550 ♦ $izal8Point - sizaMin; 

550 ♦ siza24Point - sizaMin; 

551 
552; 
555 
554 
555 
556; 
557 
558; 

401 
402; 
405 
405 

406; 
407; 
408; 

411; 
412; 
415; 



(should result in 520} 
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S31 
S32 
333 

334 
535 

336 
337 
338 
339 
340 
341 
342 
343 
544 
54S 
546 
547 
348 
549 
3S0 
351 
352 
353 
554 
555 
556 
357 
358 
359 
360 
561 
562 
563 
364 
365 
366 
367 
368 
569 
570 
571 
572 
575 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
384 
385 
386 
587 
588 
589 
590 
391 
392 
393 
394 
395 
596 
597 
598 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
415 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
435 
454 
435 
436 
437 
458 
459 
440 



•11 y 



uRlsaHorizont 

uAddColunnStrip 
uAddRouStrlp 

uRaportEvants 

uCourttHcap 

uCh*^Indic«s 

uDunpQlobals 

uOuNRpPralud* 

UExparliMnting 

uRapt Garbage 

uFraaGarbaga 

uHainScrambla 
uOocScraabla 



422; 

431; 
432; 



uEdltDial 
uStopEditDlalog 



[og 
LDlal ( 



501; 

506; 

509; 
510; 
511: 
512; 
513; 
514; 

515; 
516; 

521; 
522; 



[ tha standard UantHanu will ratum FALSE for any nanus with aanuID >■ aBuzzuprd; 
buzzuord manus should ba assigned IDs >■ 100; 
dabug aanus should ba assigned IDs 90-99 ) 

{SIFC fDbgABC} 

aBuzzuord • 100; 

(SELSEC} 

MBuzzuord "90; 

(SENDC] 

■nuClipFilaPrint - 1000; 

firstPrivataEvent - 100; 



{special ManuID for Clipboard File/Print} 
{first event type that you can use in TProcass. SanCEvent} 



{$IFC NOT fDbgABC} 

rExper Intent ing ■ FALSE; { not experliaant ing if debug code if off } 

{$EN0C} 



TYPE 



TPrintertletrics 
paparRact: 
printRact: 
res: 

reserve: 
END; 



RECORD 
Rect; 
Rect; 
Point: 
ARRAY! 0. 



the physical rectangle} 
the printable rectangle} 
resol ut ion, spots /inch} 
OF BYTE; 



TPrevieuhode ■ (aPrvuHargins, n^rvuBraaks, aPrvuOff); 

TDiRasponsa - (diAccept, diDisaissDialo^ox, diGlveTohainUindou, dlRcfuse); 



TEnufflAbil ities - (aBar, aScrolI, aSpI it); 
TAbil ities - SET OF TEnunAbil ities; 

TUnitsFronEdge > ( pixels FronEdge, percent FroaCdga); 



{for TPanel.Divide/CREATE argument} 
{for TPanel. Divide argument} 



TAl ertArg ■ 1. . 5; 
TAlertCounter ■ 7. . 9; 

TAl ignment ■ (aLaft, aRight, aCenter, aJustify); 

TPageAl iopment ■ (aTopLert, aTopCentar, aTopRight, aBottoiRLeft, aBottonCanter, aBottomRight); 

TCI ickStata - RECORD 

where: Point; 

uhea- LONG INT; 

Cl ickCoi^t: INTEGER; 

fShift, fOption, f^^ipie: BOOLEAN; 

END; 

TCmdNunber - INTEGER; {the unique identifier of a command in a menu (or elsewhere)} 

TCadPhasa > (doPhase, undoPhase, radoPhase); {doPhase first tine, then undoPhase & redoPhase alternately} 

TCursorNuaber - INTEGER; 

TEnumlcons - (iSkewer, iScroUBack, iFl ipBack, IGrayA, iThuRti, iGrayB, iFl ipFud, iScrollFud); {TIcon} 

ThousePhase - (aPrass, afiove, mRelease); 

TRevelation - (reveal None, reveal Soaa, reveal All); 



TPiHeserve ■ ARRAY [ 0. . 127} OF Byte; 
TPrelude ■ 
RECORD 

password: {2} INTEGER: 

version: 2 INTEGER; 

country: '2 INTEGER; 

language: 2 INTEGER; 

preludes ize: '2 INTEGER; 

unused: {6} ARRAY [0. 



{lengthened} 

Should also do ABC version protect ion* ••} 



{• 



5] OF 



IZEOF( TPrelude), uhich precedes the heap} 



fSIZI 
Byte; 



{The ebove fields should occupy 16 bytes to meet the Lisa standard} 



TPrReserve; 
LONG INT; 
INTEGER; 
TDocDi rectory: 



■prlntPref: {128 

does ize: {4^ 

nunSegments: [2 

docDi rectory; {4 
{Other fields may be added later} 

END; 

TPPrelude - TTPrelude; 

TSBoxID - LONGINT: {THSb al ias} 

TUindowID • LONGINT: {yindouPtr alias) 



TyaigrCmd - 
RECORD^ 

caidNuiiftar. 



{sun of the sizes of the consecutive data segments} 
{no. of segments; all but the last are maxSegSize bytes} 
{whence one finds the class table and the uindou} 



INTEGER; 



(the coanand nuaber} 
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441 
442 
44S 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
465 
464 
465 
466 
467 
468 
469 
470 
471 
472 
475 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
495 
494 
495 
496 
497 
498 
499 
500 
501 
502 
505 
504 
505 
506 
507 
508 
509 
510 
511 
512 
515 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
550 
551 
532 
553 
554 
555 
556 
557 
538 
559 
540 
541 
542 
545 
544 
545 
546 
547 
548 
549 
550 



EMD; 



ilndax: 
Itaalnctex: 



Byts; 
Byta; 



(th« ordinal nuafr of tht asnu in its wmna bar (or fila)} 
tha ordinal nuabar of tha itaa in its nanu} 



TProcass - SUBCLASS OF TObJact {only ona instanca axists (procass)} 

(Variablas) 

{CcMt ion/Dast ruct ion} 
FBNCTION (TProcass. }CREATE{objact: TObjact; haap: THaap): TProcass; 



[$VP8 %*uaHatbod$} 
PROCEDURE {TProcass. ] 



}DontDabug; {Tum off all dabug flags whan last documant is dosad} 

rllFC fObgASC} 

PROCEDURE {TProcass. }DunpGlobals; (Print aost global variablas on altamata scraan} 

{lENDC) ^^^ 

(Cursor Tracking} 
PROCEDURE (TProcass. }ChangaCursor(cursorNu«bar TCursortkjabar); 

£ applications call ChangaCursor if thay want to changa tha cursor shapa } 
PROCEDURE (TProcass. }DoCursorChanga(cursorNuiiiban TCursozMuabar); 

( appl teat ions iaplamant DoCursorChanga to tast cursorNunbar for ona of their 
cursor shapas; if found, it calls QuickDraw's SatCursor rout ina, otharuisa 
it calls tha ganaric TProcass. DoCursorChanga } 
PROCEDURE (TProcass. jTrackCursor 



(Error Rapo 
PROCEDURE 
FUNCTION 
PROCEDURE 
fUNCJ ION 
PROCEDURE 
PROCEDURE 
moCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
FUNCTION 
PROCEDURE 



rting} 
TProcass. 
TProcass. 
TProcass. 
TProcass. 
TProcass. 
TProcass. 
TProcass. 
TProcass. 
TProcass. 
TProcass. 
TProcass. 
TProcass. 



ArgAlartCuhichArg: TAlartAm argTaxt: S255}; (uhichArg > 1 to 5} 
' Ask(phrasaNuabar INTEGER): INTEGER; 
BaginWait(phra$aNuinbar. INTEGER); 
CautionCphrasaNuffiber INTEGER): BOOLEAN; 
CountAlart(uhichCtr TAlartCountar; countar INTEGER); 
DrauAlartCphrasaNuMbar INTEGER; mrginLRact: LRact); 
EndUait; 

GatAlart(phrasaNuMbar INTEGER; VAR thaTaxt: S2S5); 
Nota(phrasaNu«bar INTEGER); 

Ramaaba rCoiiMand(ciiidNuMbar TCaidNunbar); { for fC and fK in alerts J 
Phrasa( error. INTEGER): INTEGER; 
Stop(phrasaNu«bar INTEGER); 



(Initiata/Tarminata} 
PROCEDURE (TProcas. . .. 

PROCEDURE (TProcass. }Co«plata{ all IsUall: BOOLEAN); 



PROCEDlJfS {TProcass. lCoa«ianca(phrasfWars ion: WEGER); (process init after the process object exists} 



(Abort Handl ing} 

FUNCTION (TProcass. }AbortRequest: BOOLEAN; 

PROCEDURE (TProcass. }AbortXferSequantial(uhichy«y: xRaadWrita; pFirst: Ptr 

nuMBytas, chunkSiza: LONGINT; fs: TFilaScanner}; 

(Main Loop} 

PROCEDURE (TProcass. ]ObeyEvents( FUNCTION StopCondition: BOOLEAN); 

{This will return IF: (1) aaDying i$ TRUE (application tanainated) 
or (2) StopCondition returns TRUE (StopCondition is checked 
only when no events are available, before starting to idle.)} 



PROCEDURE 
PROCEDURE 



TProcass. lObayFilerEvant; 
TProcass. lObeyTheEvent; 



PROCEDURE (TProcess. JRun; 

(Private Events (Inter-process communication)} 
PROCEDURE (TProcess. }HandlePrivateEvent(typeOfEvant: INTEGER; fromProcess: LONGINT; 

uhen: LONGINT; otheiData: LONGINT); DEFAULT; 
PROCEDURE (TProcess. }San(£vant(typeOfEvent: INTEGER; targetProcess: LONGINT; otherOata: LONGINT); 



(rtemory Hanagment} 



(TProcass. }6indCurrantDocuaent; 

(Open/Close Windou/Docunent} 
FUNCTION (TProcess. }NauOocHanagar( vol iMeP re fix: TFilaPath; opanAsTool: BOOLEAN) 

: TOochanager; DEFAULT; 

(External Document Support} 
PROCEDURE {TProcess. JCopyExtemalDocfVAR error INTEGER; 

external Name, voIumePrefix: TFilePath); KFAULT; 
(This is called if the appl ication puts icons into the cl ipboard and the user 
than pastas tham into a folder or disk.} 

END; 
TDocDi rectory - SUBCLASS OF TObJect 



(Variables) 
window: 
dassliorld: 



THindou; 
TClassktorld; 



(Great ion /Dest ruct ion} 
FUrCTION {TDocDirectory.}CREATE( object: TObject; heap: THeap; itsyindou: TWindou; 

itsCI assWorl d: TCI assWorl d) : TDocDi rectory; 

(Version Conversion} 
PROCEDURE (TDocDi rectory. } Adopt; 

END; 



TDocHanager > SUBCLASS OF TObject 

{Variables} 
files: 

RECORD 

volumePrefix: TFilePath; 
volume: TFilePath; 

($IFC LibraryVersion > 20} 

password: TPassuord; 

(SENOC} 



{Desktop Manager volume and prefix of OS files) 
Desktop Hanager volume of OS files; -vol name-} 

(The password for this document} 
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SSI 
SS2 
S55 

SS4 

sss 

SS6 

557 
558 
559 

560 
561 
562 
563 

564 
565 

566 
567 
568 
569 
570 
571 
572 
575 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
656 
637 
658 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
655 
654 
655 
656 
657 
658 
659 
660 



sav«£xists: 


BOOLEAN; 


shoul dSuspand: 
shoul dTooi Save: 


BOOLEAN; 


BOOLEAN; 


END; 




dataStgmtnt: 
RECORD 




rtfnu* 


ARRAY [1. .MxScgiwnts 


pr«lud«Ptr. 


TPPral ud*; 


changes: 


LONG INT; 


END: 




docHcap: 


TH«ap; 


ulndou: 


Tilndou; 


pandingNotK 


INTEGER; 


opcrwiMsTool : 


BOOLEAN; 



ruh*th«r S«v« flic U knoun to ax 1st and smiii raadabla} 

(should m craata suspend fU*s?} 

[should us craata save files If opanod as a tool?) 



OF INTEGER; ( re f nuns of Its data segments} 

(a pointer to the prelude of the data segment} 
How many chenges since the last checkpoint} 

{the heap starts after the prelude) 

(the document's window (it is in the data segment}} 

{If <> 0, NOTE alert that uas requested while Inactive) 



(Great ion/Destruct ion) 
FUNCTION {TOocttanager.)CREATE( object; TObJect; heap: THeap; itsPethPrefix: TFilePath): TOocManager. 



(SENDC) 



gABC) 
(TDocHanager. }DumpPrelude; 



(Print most of prelude on alternate screen) 



(Attributes) 
FUNCTION (TOocMenager. }UindouWithId(umgrI(): TWindowIO): TWindow; 

(Process Terminetion) 
PROCEDURE (TDocMenager.}CoapleteC all IsKell: BOOLEAN); 



(Open /Close Ulndou) 
FUNCTION (TDocHanager. }NeuWindou( heap: 



THeap; umgrlD: TWindouID): Tyindou; DEFAULT; 



(Files) 
PROCEDURE ( TDochanage r. ) CI ose( a fterSuspend: BOOLEAN) ; 
( CIoseFlles is for the application to override if it 
closed } 

JDocHanager. 
, TDocHanager. 



has any of its oun files that must be 



PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



CIosaFiles; 
OpenfVAR error 



INTEGER; umgrlO: TUindouID; VAR OpenedSuspended: Bool ean} ; 



.TDocHanager. ]OpenBlanK(yAR error INTEGER; uMSrlD: TUindouID); 



TDocHanager. OpenSaved( UAR error. INTEGER; umgrlD: TUindouID 
TDocHanager. OpenSusp«nded( VAR error INTEGER; umgrlO: TUindou 
.TDocHanager. Revert Vers ion(VAR error. INTEGER; umgrlD: TUindou 
,TDocH«nager.}SaveVersion(VAR error INTEGER: volumePrefix: TF 
endContinue: BOOLEAN); 
PROCEDURE (TDocHenager. }Suspend(VMt error INTEGER): 



uID); 
uID); 
il ePath; 



(Data Segment 



PROCEDURE 
PROCEDURE 
PROCEDURE 



PROCEDURE 

FUNCT ION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

END; 



DocHanager. 
^TDocHanager. 
TDocHanager. 



TDocHanager 
I TDocHanager. 
TDocHanager. 
TDocHanager. 
'TDocHanager. 
TDocHanager. 
TDocHanager. 
TDocHanager. 



} Ass imilate(VAR^ error INTEGER); 

jBind; DEFAULT; 

JConserveHamoryCmaxExcess: LONGINT; fGC: BOOLEAN); 

(if fGC is TRUE also do a garbage collect — on debugging versions, 
we just report garbage, on non-debugging versions ue free it 
also. } 
Deact ivate; 

Df It Heaps ize: LONGINT; 
ExpandHemoryfbytesNeeded LONGINT); 
Kill Segments( first, last: INTEGER); 

HakeSegments(VAR error. INTEGER; oldSegments: INTEGER: neuDocSize: LONGINT); 
ResumeAfterOpen(VAR error INTEGER; umgrlD: TUindouID); 
SetSegSlze(VAR error INTEGER; minSize, maxExcess: LONGINT); 
Unbind; DEFAULT; 



TCI ipboard - SUBaASS OF TDocHanager 

(Variables) 

hasVieu: BOOLEAN; 

hasPicturr. BOOLEAN; 

hasUn iversal Text: BOOLEAN; 

has Icon: BOOLEAN; 
(••••NOTE: The only way into or out of 

cuttingTool: LONGINT; 

cutt ingProcess ID: LONGINT; 

cl ipCopy: TF il eScanner, 



FALSE if no tool -kit-specific representation available} 

FALSE if no universal picture available) 

FALSE if no universal text available) 

TRUE if there is an icon reference available) 
Universal Text is via the Universal Text Building Block****} 
(The tool nunber of the tool that loaded the Cl ipboard. or 0} 
(The OS process ID of the tool that loaded the Cl ipboard, or 0} 
(IF <> NIL a scanner on the file containing a copy of the 
cl ipboard before conversioa } 



(Craat ion/Destruct ion} 
FUNCTION (TCI ipboard. }CR£ATE( Ob ject: TObject; heap; THeap): TCI ipboard; 



(Editiiw) 
PROCEDURE 
PROCEDURE 
PROCEDURE 



TCI ipboard. lAboutToCut; 
TCI ipboard. ' BeginCut; 
TCI ipboard. J EndCut; 



(whether or not data will actually be put in the data seg) 



(Undo} 
PROCEDURE ( TCI Ipboa rd. } Comm i t Cut ; 
FIMCTION (TCI ipboard. JUndoCut: BOOLEAN; (return TRUE if succeeds) 

(Identification) 
PROCEDURE " 
PROCEDURE 

(Data Segment) 
(PROCEDURE TCI ipboard. Bind;} 
(PROCEDURE TCI ipboard. Unbind;] 

END; 



PROCEDURE (TCI ipboard. } Inspect; 
(TCI ipboard. JPubl icize; 



TCommand - SUBCLASS OF TObject 



(Variables) 
cmdNunber 

image: 
undoabl e: 
doing: 
revelat ion: 
unHil iteBefore: 



TCmdNumber 

T Image; 
BOOLEAN; 
BOOLEAN; 
TRevel at ion; 
ARRAY [TCmcN>hase 



(the command number of the menu item that describes the command; 

usually the seme one the user chose, but not necessarily) 

'If non-NIL. affects filtering by image. EachVirtual Part} 

.TRUE iff this command is undoabl al 
TRUE if Performing or Just did doPhase or redoPhase) 
reveal None /Some /All of selection before performing cofflnnnd} 



OF BOOLEAN; (TRUE -> Toolkit unhil ites all selections before 
perform} 
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Page 



661 
662 
665 
664 
665 
666 
667 
668 
669 
670 
671 
672 
675 
674 
675 
676 
677 
678 
679 
680 
681 
682 
685 
684 
685 
686 
687 
688 
689 
690 
691 
692 
695 
694 
695 
696 
697 
698 
699 
700 
701 
702 
705 
704 
705 
706 
707 
708 
709 
710 
711 
712 
715 
714 
715 
716 
717 
718 
719 
720 
721 
722 
725 
724 
725 
726 
727 
728 
729 
750 
751 
752 
755 
754 
755 
756 
757 
758 
759 
740 
741 
742 
745 
744 
745 
746 
747 
748 
749 
750 
751 
752 
755 
754 
755 
756 
757 
758 
759 
760 
761 
762 
765 
764 
765 
766 
767 
768 
769 
770 



hllit»An«r WWAY [TC««»h«$«J OF BOOLEAN; [TRUE -> Toolkit hil It«$ all $»l«ctlon$ iftBr perform) 

fCnat lon/D«st met ion} 
FUNCTION {TCoHnnd.}CREATE( object: TObJact; haap: THaap; itsCMffkMbar TCMdNunber; 

Itslmga: TlMQa; IsUndoabla: BOOLEAN; ItsRavalat ioa- TRavel at ion) : TComnand; 

{Filtarinol 
PROCEDURE fTCowandlEachVirtual Part (PROCEDURE DoToObJactf fll tar««bj: TOblact)); 
PROCEDURE (TCoMnandJF 11 tarAndDo( actual Ob J: TObjact; PROCEDURE DoToObJact( f 11 taradOb J: TObJect)); 



{Coamand Exacution} 
PftOCEOURE {TCoMmnd. iConmit: DEFAULT; fcomlt a conmand} 

Pf!KX:£OURE {TCo«nand}Parfor«(cadPhasa: TCadPhasa); DEFAULT; (do, undo, or rado a coimand} 

END; 

TCutCopyCoamand - SUBCLASS OF TCoanand 

{Varlablasl 

isCut: BOOLEAN; (TRUE iff this was a cut; FALSE iff a copy} 

(Craat ion/Dastruct ion} 
FUNCTION {TCutCopyConmand. }CREATE(objact: TObjact; haap: THaap; ItsCatdNumber. TCmdNumber; 

itslMO*: TlMga; isCutCmd: BOOLEAN): TCutCopyComnand; 



rCoamand Exacution} 
(PROCEDURE TCutCopyConmand. Coiiwit; } 

PROCEDURE {TCutCopyCoamand. }DoCutCopy(clipSal act ion TSalaction; dalataOriginal: BOOLEAN; 

ciadPhasa: TCaidPhasa); DEFAULT; 
(the clipboard is al raady sat up; you only hava to load data into it in doPhase} 
{PROCEDURE TCutCopyCooaaand. Parfom(cwtPhasa: TCiMJPhasa) ; } 

END; 



TPastaComnand - SUBCLASS OF TConMand 

{Craat ion/Dastruct ion} 
FUNCTION (TPastaCoMnand. }CREATE(obJact: TOblact; haap: THcap; itsCnidNuMber TCadNumber 

itslnaga: Tlaaga): TPastaCoowand; 

{Coamand Exacution} 
PROCEDURE { TPastaCoMmand. } DoPasta( cl ipSal act ion: TSal act ioa- p ic: P IcHandl a; 

cndPhasa: TCmdPhasa) ; DEFAULT; 
{tha clipboard is al raady sat up, axcapt in undoPhasa sal & pic are NIL} 
(PROCEDURE TPastaCoanand. Parfon< cndPhasa: TCadPhasa);} 

END; 



Tlnga - SUBCLASS OF TObjact 

{Variables} 

axtantLRact: LRect; 

viau: TV leu; 

al 1 ouhousaOut s Ida: BOOLEAN; 



(tha bounding box for updates; also for default hit-testing} 

(If TRUE, TInaga. MouseTrack uill NOT force the mouse point 

to lie uithln tha axtantLRect; T Image. CREATE sets this FALSE) 



{methods} ^ , 

FUNCTION (T Image. }CREATE( object: TObjact; haap: THaap; ItsExtant: LRect; itsVieu: TV leu): T Image; 



FUNCT ION 

PROCEDURE ^ 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

FUNCTION . 

PROCEDURE 

FUNCT ION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDlffiE 

FUNCTION 

END; 



mage, 
mage, 
mage, 
mage, 
mage, 
mage, 
mage, 
mage. 
mage, 
mage, 
mage, 
mage, 
mage, 
mage, 
mage, 
mage, 
mage, 
maga. 
mage. 



CursorAt ( mousaLPt 
Draw; DEFAULT; 



I Point): TCursorNumben DEFAULT; 



jEachActualPart(PROCEOURE DoToObjact(flltaradObj: TObject)): DEFAULT; 
'EachVlrtualPart(PROCEDURE OoToOb1act(flltaredObj: TObject)); DEFAULT; 

F 11 terAnc©o( actual Obi: TObjact; PROCEDURE OoToObjact( f ilteredOb j: TObject 

HavaVlau(viau: TViauJ; DEFAULT; 

Hit( mousaLPt: 1 Point): BOOLEAN; DEFAULT; 
.Invalidate; (does NOT do It on all pads} 

LaunchLayoutBox(vlau: TV leu): T Image; DEFAULT; 

OffSetByfdaltaLPt: LPolnt); DEFAULT; 

OffSatTo(nauTopLeft: LPolnt); 

MouseHova( mousaLPt: 1 Point): DEFAULT; 
.MousaPra$$( mousaLPt: IPolnt); DEFAULT; 

HousaRel ease; DEFAULT; 

HouseTrack(mPhase: TNousePhasr, mousaLPt: LPolnt); DEFAULT; 

RaactToPrlntarChange; DEFAULT; 

RecalcExtant; DEFAULT; 

Ra$i2a(nauExtant: LRect): DEFAULT; , , 

SaasSamaAs( image: T Image): BOOLEAN; DEFAULT; {$} 



)); 



TV leu • SUBCLASS OF T Image 



{Variables} 
panel: 
cl IckLPt: 
print Nana gar 
res: 

screanPad: 



TPanal ; 
LPolnt; 

TPrlntHanager 
Point; 



Tha panel in uhich it is viewed} 

The last place tha user cl Icked the mouse button} 

NIL If view not printable} 

' rasol ut ion, spots /Inch} 



TPad; 



fltPagasPerfectly: BOOLEAN; 



(1 ike noPad, but scales from viau coords to screen coords If vieu 
resolution and screen resolution differ 

••" CAUTION — Only for mapping coordinates— DO NOT try to 
Focus this pad or do Invals, atx •••} 

(whether viau size should fluctuate automatically so that one always 
ends up with an avan number of pages} 

(Whether this view can be printed} 
(FALSE if an auxiliary view, such as page view or paginated vieu) 

(Amount ua should scroll past tha and of the view} 



(Creation/Destruction] _., ,^ ^ , ,« , .» ,- » ^ . « » 

FUNCTION {TViaw.}CftEATE( object: TObject; heap: THaap; ItsPanel: TPanal; itsExtent: LRect; 
ItsPrintManager TPrintttanager ItsD fit Margins: LRect; itsF it PagasPerfectly: BOOLEAN; 



isPrintable: 


BOOLEAN; 


isHalnVieu: 


BOOLEAN; 


stdScrol I : 


LPolnt; 


itrol 1 PastEnd: 


Point; 
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^■iiii. — - r .1 ■ ■ ■ I " ... II I ..I ■ 

771— UsRk: Point; isHa inV i*w. BOOLEAN) : IVim/i 

772— {PROCEDURE TVl«u. Fr»«; } 
775— 

774 — {Attrlbut»s) 

775 — PROCEDURE {TVitu. }B*InPan«I(p«n«l: TPanal); 

776 — PROCEDURE fTVi«u. G«tStdScron(VAR ctoltaLStd: LPoint); 

777 — FUNCTION {TVi«u. }HaxPagaToPrlnt: LONGINT; 

778 — 

779— (Paalnatlon) 

780— PIOCEOURE rTVi*u.}AddStripOfPaa«s(vhs: WSalact); DEFAULT; 

781— F4MCTI0N (TUiau. iForcaBraakAtCvhs: VHSalact; pracad IngLocat ion: LONGINT; 
782 — '- proposadLocat ton: LONGINT): LONGINT; 

785 — PROttOURE {TViau. )RadoBraak$; DEFAULT; 

784— PROCEDURE (TV lau-lRaaapHanualBraalcsC 

785— FUNCTION NauBraakLocatlonCvhs: VHSalact; oldBraak: LONGINT): LONGINT); 

786 - 

787 — {Cross-Panal Drao) 
788— FUNCTION (TVlau. }DoRacaiva($alact ion: TSalaction; IPtlnV law: LPoint): BOOLEAN; 

789 — 

790 — (Diract Display Paraission — par panal) 

791— FUNCTION {TViau. }OKToOrauIn{lRact InViau: LRact): BOOLEAN; {Dafault is FALSE; app can ovarride} 
792 — 

795 — {Cursor tracking - par pana} 

794— {FUNCTION TViau. CursorAt(iiiousaLPt: LPoint): TCursotNuMbar, } 

795 — 

796 — {Rasizing} 

797— {PROCEDURE TViau. Rasiza<nauExtant: LRact);} 

798— PROCEDURE {TViau. } Sat ninViauSiza(VAR MinLRact: LRact); 

799 — 

800 — {CI ipboard Sat up) 

801— PROCEDURE {TViau. iCraataUnivarsalTaxt; 

802 — 

805 — {Variablas ainbaddad in taxt) 
804— PROCEDURE {TViau. }SatFunctionValu«(kayuord: S255; VAR itsValua: S255): 

805 — 

806 — {Sal acting} 
807— FUNCTION {TViau. ]NoSal act ion: TSalaction; 

808 — END; 

809 — 

810 — 

811 — TPaglnatadViau - SUBCLASS OF TViau 

812 — 
815 — {Variablas} 

814 — unpaglnatadViau: TViau; {tha unpaginatad viau fro* uhanca this darivas} 

815 — 

816 — pagaSiza: ARRAY[ VHSal act] OF LONGINT; {uidth/haight of a paga' s raprasantation on tha screen, 

817 — in tha sana matrics as tha regular viau — could still 

818 — differ froa actual screen space a/c screen ho riz /vertical 

819 — resolution} 

820 — 

821 — uorkinglnHergins: BOOLEAN; 

822 — 

825 — {Creation/Destruction} 

824— FUNCTION {TPaginatedVieu. }CREATE( object: TObJect; heap: THeap; 

825 — itsUnpaglnatedVieu: TV leu): TPaglnatedVieu; 

826 — 

827— {PROCEDURE TPaglnatedVieu. AddStrlpOfPage$(vhs: VHSelect);} 

828— PROCEDURE {TPaglnatedVieu. } Ado mPageOnScreen; 

829— {FUNCTION TPaglnatedVieu. CursorAtdnouseLPt: LPoint): TCursorNunber } 

850— PROCEDURE { TPaglnatedVieu. }DepaalfyLPolnt(pagLPt: LPoint; VAR unPagLPt: LPoint); 

851— PROCEDURE (TPaglnatedVieu. }OoOnPages(focusOn Inter lor. BOOLEAN; PROCEDURE DoOnAPage); 

852— (PROCEDURE TPaglnatedVieu. Orau; } 

855— (PROCEDURE TPaglnatedVieu. HouseT rack( nPhase: TPhase; mouseLPt: LPoint);} 

854— PROCEDURE (TPaglnatedVieu. }PaglfyLPolnt(unPagLPt: LPoint; VAR pagLPt: LPoint); 

855 — (PROCEDURE TPaglnatedVieu. ReactToPrintaiChanga; } 

856 — (PROCEDURE TPaglnatedVieu. RedoBreaks; } 

857 ~ • ' 

858 — END; 

859 — 

840 — 

841 — TPageVleu - SUBCLASS OF TV leu 

842 — 
845— FUNCTION (TPageVleu. }CREATE( object: TObject; heap: THeap; 

844 — ItsPrintHanager. TPrlntHanager): TPageVleu; 

845 — (PROCEDURE TPageVleu. Drau; } 

846 — END; 

847 — 

848 *■- 

849 — THaading - SUBCLASS OF TiMga (a header/footer inaga} 

850 — 

851 — printHanager TPrlntHanager 

852 — pageAl ignment: TPageAl ionoient; 
855 — of fsetFronAl ignment: LPoint; 

854 — 

855 — oddOnly: BOOLEAN; 

856 — evenOnly: BOOLEAN; 

857 — MinPage: LONGINT; 

858 — MaxPaga: LONGINT; 

859 — 

860 — (Creation /Destruction} 



to restrict printing only to odd-nunbered pages} 
ditto even } 
■iniiaun page number to uant this heading} 
iMxlnun paga nuaiiar to uant It} 



861— FUNCTION (THaading. }CREATE( object: TObject; heap: THeap; ItsPrintHanager. TPrlntHanager 

_..-._._ ^ ... TPage" • 

ItsOf fsetFroniAl ionment: LPoint): THeadinj 
864 



862 — ItsExtentLRect: LRect; ItsPageAl Ignment: TPageAl ignment; 

865— ItsOffsetFromAl ignment: LPoint): THeadlng; 



865 — (Attributes} 

866— PROCEDURE (THeadlng. }ChangePagaAl ignment (neuPagaAl ignment: TPageAl i^rment); 

867 — 

868 — (Selective Use} 

869— FUNCTION (THeadlna }ShouldOrau(pageNuinber LONGINT): BOOLEAN; 

870— FUNCTION (THeadlng. }ShouidFrama: BOOLEAN; DEFAULT; 

871 — *■ -^ ' 

872 — (Display) 

875— PROCEDWE (THeadlna } Ad justForPage{pageNu«ber LONGINT; editlno: BOOLEAN); DEFAULT; 

874— PROCEDURE (THeadlng. }LocateOnPage( editing: BOOLEAN); 

875 — (PROCEDURE THeadlng. Drau; } 

876 — END; 

877 — 

878 — 

1 879 — TPrlntHanager • SUBCLASS OF TObject 

1 880 — vieu: TV leu; 
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881 
882 

88S 
884 
885 

886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
90S 
904 
905 
906 
907 
908 
909 
910 
911 
912 
91S 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
958 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 



paO^iau: TViau; 

braaks: MRAY[ VHSal act] OF T Amy, {of LONGINT} 

{pagabraak raprasantat ion: absoluta valua givas location; nagatlva 
sionifias Manual braak; nonnagativa signiflas autonatlc pagabraak} 

pagaHargins: LRact; {in viau rasolution; top and laft ara > , bot & right < 0} 

haadings: TList; {OF THaading} 

cinEd it Papas: BOOLEAN; 

layout OialogBox: TOialogBox; 

framaBody: BOOLEAN; 

paparLRact: LRact; 

printablaLRact: LRact; 

contantLRact: URact; {tha innar ractangla into which chunks of viau are stuffad} 

printarttatrics: TPrintaittatrics; (physical propartias of tha printar} 

pagaRisaOiraction VHSalact; 

{if 'h', it aaans that paga nuabars risa fro* laft to right fastast; 
if ' V' . it aaans that paga nuabars risa froai top to bottom fastast; 
dafault valua is 'h'} 

FUNCTION {TPrintHanagar. jCREATECobjact: TOblact; haap: THaap): TPrintHanagar 
PROCEDURE {TPrintHanagar.}lnit(itsHainViau: fViaw; it sO fit Margins: LRact); 
{PROCEOUS TPrintaanagar. Fraa; } 

PROCEDURE (TPrintHanagar. 

PROCEDURE TPrintHanagar. 

PROCEDURE TPrintHanagar. 

PROCEDURE TPrintHanagar. 

PROCEDlAtE TPrintHanagar. 

PROCEDL«E TPrintHanagar. 

PROCEDURE TPrintHanagar. 

PROCEiXIRE TPrintHana^r. 

FUNCTION TPrintHanagar. 

FUNCTION TPrintHanagar. 

FUNCTION TPrintHanagar. 

PROCEDURE TPrintHanagar. 

PROCEDURE TPrintHanagar. 

PROCEDURE TPrintHanagar. 

PROCEDURE TPrintHanagar. 

PROCEDURE TPrintHanagar. 

PROCEDURE (TPrintHanagar. 



AddStripOfPagas(vhs: VHSalact); 
' ChangaHargins( Margins: LRact); 

CI aarPagaSraaksC automt ic: BOOLEAN) ; 

DrauBraaks( manual Only: BOOLEAN); 

DrauOnaBraak{pagaBraak: LONGINT; vhs: vhSalact); 

DrauPaga; 
' EntarPagaEdlting; 

GatPagaLimits(pagaNuMbtr LONGINT; VAR viauLRact: LRact); 
^NauPaginatadV/iaufobjact: TObJact): TPaginatadViau; 

NauPagaViau(obJact: TObjact): TViau; 

Pagakfith(VAR iPtlnViau: LPoint; MAR strip: Point): LONGINT; 

Print (printPraf: TPrRasarva); 

Raact t oP r int a rChanga; 
^RadoBraaks; 

SatBraak(vhs: VHSalact; uhara: LMGINT; isAutonatic BOOLEAN); 

SatOfltHaadings; DEFAULT; 

SkipPaga(pagaNu«bar. LOMGINT); 



END; (TPrintHanagar dafinition} 



TSalaction - SUBCLASS OF TObJact 



{Variablas} 
u indou: 
panal; 
viau: 
kind: 

anchorLPt: 
currLPt: 
boundLRact: 
coSal act ion: 



TW indou; 

TPanal; 

TViau; 

INTEGER; 

LPoint; 

LPoint; 

LRact; 

TSal act ion; 



canCrossPanal s: BOOLEAN; 



tha u indou in uhich it was laada} 

tha panal in which it u»s mda} 

tha viau or subviaw of panal in uhich it was made} 

maans no sal act ion, rast of codas ara dafined by vieu] 

tha placa tha mousa want doun (viau- relative)} 

the placa the mouse was last tracked} 

bounding box of the selection} (♦•'♦LsR***} 

if non-NiL, e selection to foruard unimplamantad methods to} 

: -TRUE in HousePress /FALSE in HouseReleasa for cross-panel drag} 



(Great ion/Dast met ion} 

FUNCTION ( TSal ect ion. }CREATE( object: TObject; heap: THaap; itsViau: TViau; ft sKlnd: INTEGER; 

itsAnchorLPt: LPoint): TSal ect ion; 
( FUNCT ION TSel ect ion. CI ona( heap: THeap) : TOb Jact ; } f cl ones coSel ect ion} 
FUNCTION (TSel ect ion. }FreedAn(ffieplace(ffiy( select ion TSel ect ion): TSel ect ion; 

(Attributes} 
PROCEDURE (TSel ect ioa }GetHystere$i$(VAR hysterPt: Point); DEFAULT; (rtns a delta from orig panel pt} 
PROCEDURE (TSel ect ion.} HavaOieu( vieu: TVieu): 



(Files) 
PROC£Dlff{£ (TSelection}HaiKChangad; DEFAULT; 



(Increment change counters) 



(Command Dispatch} 

FUNCTION ^ 

PROCEOlfftE 

PROCEDURE 

PROCEDURE 

FUNCTION 

PROCEDURE 



TSal ect ion. , 
TSel ect ioa 
TSel ect ioa 
TSel ect ioa 
TSel ect ioa 
TSel ect ioa 



CanDoCommand( cmimuffibar TCmdNumbar VAR check It: BOOLEAN): BOOLEAN; DEFAULT; 

CantDoCmcKcmdNufflbar. TCmctfkMber); DEFAULT; 

CantDoIt; DEFAULT; 

DoKay(a$cii: CHAR; keycap: Byte; shiftKay, applaKey, optionKey: BOOLEAN); 

NeuCommand(cmdNumbar. TCmdNunber): TCommand; DEFAULT; 

ParforaCoamandC command: TCommand; cmcff>hase: TCmcff>hase); DEFAULT; 



PROCEDURE (TSal ect ioa] IdleBeginC cent iSeconds: LONGINT); DEFAULT; 
PROCEDURE (TSel ect ioa 1 1dl eCont inue(cent iSeconds: LONGINT) ; DEFAULT; 
PROCEDURE { TSel ect ioa }IdleEnd( cent iSeconds: LONGINT); DEFAULT: 



(Editing ~ 
pr(x:eoure 
procedure 
procedure 
procedure 
procedure 
proceehme 
procedure 
procedure 
procedure 



to be overridden by appl icat ions} 

TSal ect ioa iKeyBackf fWord: BOOLEAN); DEFAULT; 

TSel ect ioa KeyChait ch: CHAR) ; DEFAULT; 

TSal ect ioa KeyCl ear, DEFAULT; 

TSelectioa KeyEnteitdh. dv: INTEGER): DEFAULT; 

TSel ect ioa KeyForuardf fUont BOOLEAN); DEFAULT: 

TSel ect ioa KayPause: DEFAULT; (Pause in typing} 

TSel ect ioa KeyRetum DEFAULT; 

TSel ect ioa KeyTabf fBackua rd: BOOLEAN) ; DEFAULT; 
'TSal ect ioa JSelectParagraphs; 



SocSuRE fTSelectioa}Highlight(highTransit: THighTransit); DEFAULT; 



(Sal ect ir 
PROCEC 
PROCEDURE 



PROCEDURE 



TSel ect ioa 
TSel ect ioa 



PROCEDURE TSel ect ioa 



TSel ect ioa 



PROCEDURE (TSel ect ioa 



Deselect; DEFAULT; 
DrauGhost; DEFAULT; 

HousaPressCmouseLPt: LPoint); DEFAULT; 
HousaHoveCmouseLPt: LPoint); DEFAULT; 
HouseReleasa; DEFAULT; 
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991 — 

992 ~ 

99S ~ 

994 ~ 

995 ~ 

996 ~ 

997 ~ 

998 — 

999 ~ 

1000 ~ 

1001 ~ 

1002 ~ 
1005 ~ 

1004 ~ 

1005 ~ 

1006 — 

1007 — 

1008 ~ 

1009 — 

1010 ~ 

1011 — 

1012 — 
1015 — 

1014 — 

1015 — 

1016 — 

1017 — 

1018 ~ 

1019 — 

1020 — 

1021 ~ 

1022 ~ 
1025 — 

1024 — 

1025 ~ 

1026 ~ 

1027 — 

1028 ~ 

1029 — 

1050 — 

1051 ~ 

1052 ~ 
1055 ~ 

1054 ~ 

1055 — 

1056 — 

1057 ~ 

1058 ~ 

1059 — 

1040 — 

1041 — 

1042 — 
1045 ~ 

1044 — 

1045 — 

1046 — 

1047 — 

1048 — 

1049 — 

1050 — 

1051 ~ 

1052 — 
1055 — 

1054 ~ 

1055 — 

1056 ~ 

1057 — 

1058 — 

1059 — 

1060 ~ 

1061 — 

1062 — 
1065 — 

1064 — 

1065 — 

1066 — 

1067 — 

1068 — 

1069 — 

1070 — 

1071 ~ 

1072 — 
1075 ~ 

1074 ~ 

1075 ~ 

1076 ~ 

1077 — 

1078 — 

1079 ~ 

1080 ~ 

1081 ~ 

1082 — 
1085 ~ 

1084 — 

1085 ~ 

1086 — 

1087 ~ 

1088 — 

1089 — 

1090 — 

1091 — 

1092 ~ 
1095 ~ 

1094 ~ 

1095 ~ 

1096 — 

1097 ~ 

1098 ~ 

1099 — 

1100 — 



PROCEDURE {TScl«ctloa]Hovrt«ckToAnchor, DEFAULT; (call ad vhK\ cross-pantl dng has bMn nfusad} 

{Undo ttaintsnanca] 

PROCEDURE {TS«1 act ioa}RKton; DCFMLT; 
PROCEDURE {TS«1 act ioaJSav*; DEFAULT; 

{Scroll into vi«u} 

PROCEDURE {TS*1 act loa}R«v«al(asnuchAsPossibl«: BOOLEAN); DEFAULT; 

€»; 



TWlndMi >• SUBCLASS OF TAraa 



{Varlablas} 
panal s: 
panalTraa: 
dialogBox: 
sal actPanal : 
undoSal Panal : 
el ickPanal: 
undoCl ickPanal : 
salactUindou: 

undoSal Window: 
wngrlD: 
isRas izabl r. 
bal iavaUngr. 



TList {OF TPanal}: 

TAraa; 

TDialogBox; 

TPanal; 

TPanal ; 

TPanal ; 

TPanal; 

TMindou; 

TWindou; 
TklindoulD; 
BOOLEAN; 
BOOLEAN; 



MIX InnarS izr. Po int; 



changes: 
last end: 
prlnttrHatrics: 
POSzOK: 

PORgOK: 



LONG INT; 
TComnnd; 
TPrintarttatrics; 
BOOLEAN; 

BOOLEAN; 



panal ToPr int: TPanal; 

obJactToFraa: TObJact; 

{Craat lon/Dastruct ion} 

FUNCTION {TWindou. }CREATE(objact: 
: BOOLf 
{PR(K£DURE TWindou. Frar. } 

r$IFC fDbgABC} 
{Dabugglng} 
PROCEDURE {TWindou. )TooglaFlaa(v;AR flao: 
{SENOC} 

{Attributas} 

{PROCEDURE 

PROCEDURE 

FUNCTION 

FUNCTION 



Tha panal s in tha uindou (at laast ona)} 

no panal s: NIL, ona panal: that; alsa a TBranchAraa} 

NIL if SELF IS a dialoQ box uindou} 

Tha panal uith tha activa sal act ion} 

Tha sal actPanal during tha last command} 

Tha panal in which tha usar last cl ickad in a pane} 

Tha cl ickPanal during tha last coimand} 

Tha uindou uith tha activa salaction — aither 

SELF or its Dialogbox } 
tha salactWindou during tha last command} 
OMKPointar to tha Windou Kanagar" s GrafPort)} 
Is thara a Rasiza Box} 
TRUE iff tha Toolkit should bal iava tha uindou 

managar* s idaa of tha slza of tha uindou; 

this uill ba FALSE (for axampla) if u» craate 

tha uindou objact bafora tha uindou is put on 

tha scraaa } 
{Tha uindou siza tha usar axpl icitly sat uith grou 

icon} 
Hou many changas sinca tha last save} 
last undoabla command objact} 

Propartias of tha printar currently formatted for) 
Whether to allou user-defined page-sizes in Fmt For 

Printer dialog} 
{Whether page- range dialog should be enabled in PRINT... 

dialog — normally TRUE} 
{NB: IF >1 printable panal in uindou, choice should be 
made by providing separate menu items} 
{used to stash a reference to an object uhich should be 

fraad at and of event loop} 



TObject: heap: 
EAN): TWindou; 



THaap; itsWmgrlD: TWindoulD; itsRasizabil ity 



BOOLEAN); DEFAULT; {Toggle a debug flag in a menu} 



TWindou. GatninExtent(VAR mlnExtent: Point; uindouIsResizingIt: 
TWindou. }GetT it le(VAR title: S255); {Get the uindou title} 
TW indou. IsAct ive: BOOLEAN; 
TW indou. } IsU is ibl e: BOOLEAN; 



BOOLEAN];} 



PROCEDURE (TWindou. }SetUfflgrld(itshlmgrId: TWindoulD); {Also sets port fields of panes} 

{Buttoning} 

PROCEDURE {TWindou. }DounEwent At (mousePt: Point); DEFAULT; 
{FimCTION TWindou. DounAt(mousaPt: Point): BOOLEAN;} 

{Dialog Box affairs} 
PROCEDURE {TWindou. }PutUpDialogBox(diaIogBox: TDialogBox); DEFAIX.T; 
PROCEDURE (TWindou. JTakaDounDialogBox; DEFAULT; 

{Display} 
{PROCEDURE TWindou. Focus;} 
(PROCEDURE TWindou. Frame; } 

PROCEDURE (TWindou. }Hirtillght(hiahTran$ it: THighTransit); DEFAULT; 
(PROCEDURE TWindou. Refre$h(rAct Tons; TActions; highTransit: THij^Transit); } 

PROCEDURE (TWindou. }Update(doHil ite: BOOLEAN); DEFAULT; 

(Resizing} 

PROCEC^ (TWindou. }DounInSize6ox(mousePt: Point): DEFAULT; 

PROCEDURE {TWindou.} Res izaTmovino: BOOLEAN): DEFAULT; (Reset size from port Rect size (u. 

PROCEDURE (TWindou. }ResizeTo( news ize: Point); DEFAULT; (callable from appl icat ion} 



adjustments)} 



(Coaaand Dispatch 
FUNCTION '^■■ 
FUNCTION 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
FUNCTION 
FUNCTION 
PROCEDURE 
PROCEDURE 
PROCEDURE 



and 
TWindou. 
TWindou. 
TWindou.' 
TWindow. 
TWindou. 
TWindou. 
.TWindou. 
TWindou. 
TWindou.' 
TWindou. 
TWindou. 



PROCEDURE 
PROCEDURE 
FimCTION 



TWindou. 
TWindou. 
TWindou. 



Nanus} 

CanOoCommandCcmdNuaber TCadNumber VAR check It: BOOLEAN): BOOLEAN; DEFAULT; 

CanDoStdCoaMand(cmdNumbar TCmdNuatoer, WAR check It: BOOLEAN): BOOLEAN; DEFAULT; 

CommitLast; DEFAULT; 

DoComnand(cmdNuHber. TCmdNumber); DEFAULT; 

LoadNenuBar DEFAULT; 

HanuEvantAt(mousePt: Point); DEFAULT; 

NeuCoamand(cmdNumber TCmdNumber): TCommand; DEFAULT; 

NauStdCommand(cmimumber TCmeMumber): TCommand; 

Pa r f o rmCommancK nauCommand: TCommand) ; 

ParformLastf cmcPhase: TCmdPhase) : 

SavaCommandC command: TCommand); {NOTE: do not use the arg after calling this; 

use uindou. last Cmd instead} 
SetupHenus; 

Undolast; ^ ^ 

WanthanuCmanuID: INTEGER; inCl ipboard: BOOLEAN): BOOLEAN; 



{Hiscallaneous} 
PROCEDURE (TWindou. }AbortEvent; {only QuickPort should override this} 

(Selection Haintenance during coanands} 



PROCEDURE 



PROCEDWE 



TWindou. 



TWindou. 



RestoreSel ect ion; 



PROCEDURE TWindou. ; Reveal Sal ect ion(asKuchAsPoss ibl a, doHil ite: BOOLEAN); 



SaveSel ect ion; 



{The follouing 2 methods assume that ue are focused on the uindou before they are called} 
PROCEDURE (TWindou. } Act ivatr, 
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1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1115 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
112S 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 



PROCEDURE fTKIndou. }0«activtt«; 

PROCEDURE [Tlllndou.]BUnkSt«tioncry: DEFAULT; 

PROCEDURE (TWindou. jStashPictunKhighTnnsit: THighTransit); 



{$IFC Libr»ryV»r$ion > 20) 



{Dasktbp Hanamr C owwu n lot Ion) 
PROCEDUFK r ' " " 



f«lndou.)N«ii»ToP™flx(VAR trror. 

PROCEDURE CTMlndou. JPraf ixToNaiM(VAR trror, 



off$«t: 
offset: 



INTEGER; 
INTEGER; 



VAR naiM, praflx: TFilaPath); 
VAR prafix, naiw: TFilaPath); 



(SENOC) 



('Convert batuaan OS prafix (la., ' -volrtaaa-fDxxxTyyy}' and an icon pathnana ( ia. , 
' <dlskna«ia<foldamanal<foldamaiiia2<. .. <lconnaiia }. If an arror is ratumed. 
effsat will point Just bayond tha part of tha nama that causad tha error, a. g. 
If ' <offica<for«s<axpansas' returns trOuplicataNanie and tha offset is 14 
(pointing to the third ' <' ) then there is iwre than one ' forks' folder on the 
office disk. Error constants are defined above. 

NOTE: these Mthods uill likely take a uhila to execute, since the Desktop Manager 
■ust be swapped in to process the request. Therefore, you should try to mininlza the 
number of times these are called.*} 



{Foci of Attention} 
FUNCTION [TWindou. iCursorfeedback: TCursorNumbar; 
PROCEDURE {TWindou. JPickStdCursor, 

{Print ing} 
IDURE 



PROCEI 
PROCEDURE 
PROCEDURE 
PROCEDURE 



TWindou. 

TWindou. 

^TWindou. 

TWindou. 



AcceptNeuPrintingInfo(docuiBant: TDocHanager prReserve: TPrReserve); 

ChkPrMismatch; 

GetPrinterHetrics; 

Print(panel: TPanal; nixPgRange: BOOLEAN; n ixWhol eD ial og BOOLEAN); 



{Filtering) 
PROCEDt^ fTWindou-lEachActual Parte PROCEDURE DoToObJect( filteredCAJ: TObJect)): {For app to implement) 



PROCEDURE TWindou. , 
PROCEDURE TWindou. 
PROCEDURE TWindou. 



EachVirtualPart(PROCEDl«E OoToObJectf filteredObJ: TObiectJ^; 

FilterAndDo{ actual Ob j: TObJact; PROCEOWIE DoToC»)Ject( filteredObj: TObject)); 

FilterDispatch(actualObJ: fObJect; image: Tlmage; 

PROCEDURE OoToObJecttfilteredObj: TObject)); 



£WL? 



:EDURE r TW indou. } Idl eBeg in( cent iSeconds: LONG INT) ; 



PROCEDURE {TWindou. 
PROCEDURE {TWindou. 

END: 



Idl eCont lnue( cent ISeconds: LONG INT) ; 
Idl eEnd( cent iSeconds: LONG INT); 



TOialogBox - SUKliISS OF TWindou 

{Variables) 

keyResponse: TD iResponse; 

menuResponse: TD iResponse; 

doun Inha inU IndouResponse: TD iResponse: 

freeOnOisnissal: BOOLEAN; 

{Great ion/Dest met ion) 

FimCT ION { TO ial ogBox. } CREATE( ob Ject : TOb lect ; heap: THeap; it sRes izab il it y: BOOLEAN; 

itsHeight: INTEGER; itsKeyResponse, itsMenuResponse, 
itsDounlnhainUindoi^asponse: TDiResponse): TDialogBox; 

{Attributes) 
{PROCEDURE TDialogBox. GetHinExtent(VAR minExtent: Point; u indou IsResiz ing It: BOOLEAN);) 



{Display} 
PRXEDURE 
PROCEDURE 



PROCEDURE {TDialogBox. 
END; 



TBand - SUBCLASS OF TArea 



TDialogBox. } Appear 

TDialogBox. BeO ism issed; DEFAULT; 



Disappear, DEFAULT; 



{Variables) 




u indou: 


TWindou; 


panes: 


TList {OF TPana) 


panel: 


TPanel ; 


scroller 


TScroller 


scrollDir 


VHSelect; 



(the scroll box) 
V if a rou of panes uith a vertical bar, 
h if a column of panes uith a horizontal bar) 

{Great ion/Dest ixjct ion) -. . , ^ 

FACTION {TBand. )CREATE( Ob Ject: TObject; heap: THeap; itsPanel: TPanel; its Innertect: Rect; 

itsScroller TScroller itsDir VHSelect): TBand; 
{PROCEDlff^ TBand. Free;} 

{Attributes) 

FUNCTION {TBand. }VieuLCd: LONG INT; 

{Scrolling) 
PROCEDURE {TBand. }DffsetPanesf del taLPt: LPoint); 
PROCEDURE (TBand. ) Scroll By( del taLCd: LONG INT); 

(A TBand can only scroll in one direction; this also moves the thumb) 



PROCEDURE 
HW)CEDURE 
FUNCT ION 
PROCEDURE 



{Resizing) 
JRI 



{TBand. }Scrol I Step( icon: TEnumlcons; deitaLStd: LONGINT); 
TBand. Scroll To(viey.Cd: LONGINT); 
TBand. ThumbPos: INTEGER: 
TBand. } ThumbTo( neuThuabPos: INTEGER) : 



{PROCEDURE TBand. ResizeOutside(neuOutei1tect: Rect};} 
PROCEDURE {TBand.} Res izePanes(neuVieuLCd: LONGINT): 

END; 

TSideBand - SUBaASS OF TBand 
{Fields} 

topOrteft: BOOLEAN; 

{NOTE: SELF, scroller is NIL) 
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1211 
1212 
1215 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1225 
1224 
122S 
1226 
1227 
1228 
1229 
1250 
1231 
1232 
1255 
1254 
1235 
1256 
1257 
1238 
1239 
1240 
1241 
1242 
1245 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1255 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1265 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1275 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1285 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1295 
1294 
1295 
1296 
1297 
1298 
1299 
1500 
1501 
1502 
1305 
1504 
1505 
1506 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1514 
1515 
1516 
1517 
1518 
1519 
1320 



FUNCTION {TSld«e«nd.}CREATE( object: TOblact; hasp: THaap; itsPanal: TParwl; itslrmail^ect: Rect; 
ItsDir VHSalcct; itsfopOrLaft: BOOLEAN; 
itsVlauLCd: LONGINT): TSldaBand; 

{Attributas} 
FUNCTION {TSidaBand}CoBand: TBand; 

{raturm tha band adjacant to SELF} 
END; 



TPanai • SUBCLASS OF TAraa 



{Variablas} 
window: 
panas: 

currantUiau: 
viau: 

papinatadViau: 
salact ion: 
undoScl act ion: 
bands: 
scroll Bars: 
abilities: 
•inlnnarOiaoonal: 
ras izaBranch: 
fboiia± 
zoonFactor 

fravltuHoda: 
astCl ick: 



{panas are listed rou-uise 
TUindou; 

TList {OF TPana); 
TViau; 
TViau; 

TPaainatadVieu; 
TSeiect ion; 
TSel ect ion; 

ARRAYrVHSelect] OF TList; 
ARRAY VHSel ect OF TScrollBar; 
ARRAY[ WSel ect OF TAb 11 it ies; 
Point; 

TBranchAraa; 
BOOLEAN; 
TScal er 
TPraviauhode; 
RECORD 
CASE got Pane: BOOLEAN OF 

TRUE: (cl ickPana: TPana); 

FALSE: (d ickPt: Point); 



in the panes 1 ist} 



The view seen through SELF: normal or paginated} 

The unpaginated view seen through SELF } 

NIL if not previewing margins} 

the current selection} 

the selection to be restored for an undo/redo} 

redundant... bands[v]. at(l) ■ top rou of panes} 

'$crollBarsI(v,h)l— the (vert, horiz) scroll bars} 

'[aBar, aScroll, aSpl it, aResize]} 

{the branch that ay botRight resizes, or NIL} 
{describes the pane tha user last clicked} 



(the 1 est pane the user cl icked on} 
the innerRect. topLeft of 1 astCl ick. pane, 
in the case where the 1 astCl ick. pane was 
deleted} 
END; 
contentRect: Rect; 

tlSidaBandSize: Point; 

brSideBandSlze: Point; 

{NOTE: The sideband sizes refer to tha size of tha innerRect of the side band; 
therefore a size of -1 neans there is no side band on that side} 
deletadSpl its: TArray; {If NIL. don't reneMber splits that go away because the panel 

shrinks. Otherwise, this should be a TArray with racordBytes 
2. This is initialized to NIL in TPanel . CREATE; clients can 
allocate an array and change the field if they desire. } 



{part of tha innerRect not containing side bands} 
{size of topLeft side bands} 



{Creat ion/Destruct ion} 
FUNCTION {TPanel. }CREATE( object: TOblect; heap: THaap; itsUindow: TWindow; 

■inHeight, minUidth: INTEGER; itsVAbil it ies, itsHAbil it ies: TAbilities}: 
{PROCEDURE TPanal. Free;) 
PROCEDURE { TPanel . } HaveV iew( v ieu- TV ieu) ; 
FUNCTION {TPanel. }NewView( object: TObject; itsExtent: LRect; itsPrintManager TPrintHanager 

itsDfltHarglns: LRect; itsFitPerfectlyOnPages: BOOLEAN): TVieu; 
FUNCTION {TPanel. }NewStatusViaw( object: TObject; itsExtent: LRect): TVieu; 

{Attributes} 

PROCEDURE 

PROCEDURE 
{PROCEDURE 
{PROCEDURE 

FUNCTION 

FUNCTION {TPanel 



TPanel 



{TPanel.} 
{TPanel.} 

TPanel. 

TPanel . 
{TPanel. 1 



PROCEDURE 
PROCEDURE 



{TPanel. 
{TPanel. 



Coffiput eCont ent Rect ; 

DecideAbout6ars(neuOuterRect: Rect); {Decide if to have scroll bars & resize icon} 

GetHinExtentrv/AR ninExtent: Point; windouIsResizingIt: BOOLEAN);} 

GetBorder(VAR border Rect);} 

FindBranchThat IsResized: TBranchAraa; 

PaneShowing(anlJtact: LRect): TPana; {Returns first pane showing an part 

of anLRect, else NIL} 
Set InnerRectfneu InnerRect: Rect); OVERRIDE; 
SetOuterRect(newOuterRect: Rect); OVERRIDE; 



{Panel ing the window} 
FUNCTION {TPanel. }Oivide(vhs: VHSelect; 

froiiCdgeOfPanel: INTEGER; units: TUnitsFromEdge; 

uhoCanRasizelt: TResizabil ity: 

•inSize: INTEGER; itsVAb il it ies, itsHAbil it ies: TAbilities): TPanel; 
PROCEDURE {TPanel. }Insert( panel: TPanel; vhs: VHSelect; 

froaCdgeOfPanel: INTEGER; units: TUnitsFronEdge; 

uhoCanResizelt: TResizabil ity); {Resizes both to share my space) 

PROCEDURE {TPanel. } Remove; {Does not Free SELF; Expands sibling to fill my space] 

PRXEDURE {TPanel. )Replace{ panel: TPanal); {Does not Free SELF; Resizes panel to fit my old space) 

{Buttoning} 
{FUNCTION TPanal. DounAtfiaousePt: Point): BOOLEAN;} 
PROCEDURE {TPanel. }DownInSizeBox(iiK>usePt: Point); 
PROCEDl«£ {TPanel. )HitScroller( vhs: VHSelect; nousePt: Point; scroller TScroller icon; TEnumlcons); 

{Selecting} 
PROCEDURE 
PROCEDURE 
FUNCTION 



TPanel . }BeginSel ect ion; 

TPanel . BeSel ectPanel ( inSel ectU indow: BOOLEAN) ; 

TPanal. jNoSel ect ion: TSel ect ion; ■) 



{Cursor tracking} 
FUNCTION {TPanel. 

{Display} 
{PROCEDURE TPanel . 
PROCEDURE {TPanel. 

PROCEDURE {TPanel. 

PROCEDURE {TPanel. 

FUNCTION {TPanel. 

PRXEOURE {TPanel. 

{PROCEDURE TPanel. 

PROCEDURE {TPanal. 

PROCEDL«E (TPanel. 

{Page-Prev ieu ing} 
PROCEDIA^E {TPanel. 



}Cur$orAt{iiousePt: Point): TCursorNunfcer, 

Frame: } 
}Highl ij^t( select ion: TSelection; highTransit: THighTransit); 

{ this highl ights the selection on all pads } 
} Inval idate; 

{ this inval idates the whole panel } 
} Inval LRect (1 Rect InV ieu: LRect); 

{ this inval idates the given LRect on all pads } 
}OKToDrawIn(l Rect InV iew: LRect): BOOLEAN; 

{ If this returns FALSE, commands must Inval LRect or XOR, not Draw or Erase } 
}OnAllPadsDo( PROCEDURE DoOnThePad); ^ , 

RefreshfrActions: TActions; highTransit: THighTransit);} 
}Rescroli; 
jSetZooiRFactor(zoo«Mumerator, zoomDanominator. Point); 



{Print ing 
pRocr- 



}Praview(newflode: TPreviewHode); 
{TPanal. }PrintView(printPref: TPrReserve): 
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1521 — 

1522 — 
1525 — 

1524 — 

1525 — 

1526 — 

1527 — 

1528 — 

1529 — 

1550 — 

1551 — 

1552 — 
1555 — 

1554 — 

1555 — 

1556 ~ 

1557 — 

1558 — 

1559 — 

1540 — 

1541 — 

1542 — 
1545 — 

1544 — 

1545 — 

1546 — 

1547 — 

1548 — 

1549 — 

1550 — 

1551 — 

1552 — 
1555 — 

1554 — 

1555 — 

1556 — 

1557 — 

1558 — 

1559 — 

1560 — 

1561 ~ 

1562 — 
1565 — 

1564 — 

1565 — 

1566 — 

1567 — 

1568 — 

1569 — 

1570 — 

1571 — 

1572 — 
1575 — 

1574 — 

1575 — 

1576 — 

1577 — 

1578 -- 

1579 — 

1580 — 

1581 — 

1582 -- 
1585 — 

1584 — 

1585 — 

1586 — 

1587 — 

1588 — 

1589 — 

1590 — 

1591 — 

1592 — 
1595 — 

1594 — 

1595 — 

1596 — 

1597 — 

1598 — 

1599 — 

1400 — 

1401 — 

1402 — 
1405 — 

1404 — 

1405 — 

1406 — 

1407 ~ 

1408 — 

1409 — 

1410 — 

1411 — 

1412 — 
1415 — 

1414 — 

1415 — 

1416 — 

1417 — 

1418 — 

1419 — 

1420 ~ 

1421 — 

1422 — 
1425 ~ 

1424 — 

1425 — 

1426 — 

1427 — 

1428 — 

1429 ~ 
1450 — 



{Scroll ino) , ^ 

PROCEDURE rTPan«l.}AutoScroll(w>us»Pt: Point); 
PROCEDURE {TPanal. } OoSc roll lng(inArta: TAna; ItsParw TPan*; 

hOk, vOk: BOOLEAN; VAR d<lt«LPt: LPolnt); 
{inAraa aust b« a TBand or a TPanr, if a TPana than inAraa-ltsPane; 
if a TBand than itsPana is any ona of tha band' s panas} 
FUNCTION {TPanal.}PanaToScroll(VAR anLRact: U»act; hMinToSae. vHintoSaa: INTEGER): TPane; 
{Ratuim tha pana to scroll for showing tha ninlmuni dasirad part onj^act; 

if that part is al raady showing it ratums NIL; 
NOTL- anLRact is NOT changad] 
PROCEDURE {TPanal.)RavaalLRact(VAR anLRact: LRact; hHinToSaa, vMinToSaa: INTEGER); 

(Shou at laast tha dasirad part of tha LRact in tha pana ratumad by PanaToShou; 
NOTE: anLRact is NOT changad} 



PROCEDURE 
PROCEDURE 
FUNCTION 

FUNCTION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 



TPanal. 
TPanal. 
TPanal. 
TPanal. 

[TPanal. 
.TPanal. 

TPanal. 

TPanal. 

TPanal. 



ClaanUpPanas(daIataList: TList); 

HakaBand( vhs: VHSalact; scroll ar, pravScroUar TScroIlar); 
rtovaSplitBafora( scroll an TScroIlar nauSKurCd: INTEGER); 
NauBandf haap: THaap; aylnnaiRact: Ract; 

scrollar TScroIlar, vhs: VHSalact): TBand; 
NauPana(hoap: THaap; innatRact: Ract; viawadLRact: LRact): TPana; 

Raw«berSprit(vhs: VHSalact: atCd: INTEGER); 
' RapanaOrtnogonal Bands( vhs: VHSalact); 
RastoraSpI its; 



(Sida Bands) 

PROCEDURE {TPanal. }ShouSidaBand( vhs: VHSalact; topOrLaft: BOOLEAN; siza: INTEGER; viauLCd: LONGINT); 
PROCEDURE {TPanal. IS ida6andRact( vhs: VHSalact; topOrLaft: BOOLEAN; VAR bandRact: Ract); 
{ratums tha innazRact of tha sida band, givan SELF. contantRact} 

PROCEDURE {TPanal. }RasizaBand( vhs: VHSalact; band: TBand; nw^iauLCd: LONGINT; 

f Inval idata: BOOLEAN); 
{PROCEDURE TPanal. RasizaInsida(nawInnarRact: Ract):} 
{PROCEDURE TPanal. RasizaOutsida(nawOutarRact: Ract);} 

END; 
TPana - SUBCLASS OF TPad 



{Variablas} 
currant Viaw: 
panal: 



TViau; 
TPanal ; 



{Tha viau that is currently} 
Tha containing panal} 



{Craat ion/Dast ruct ion} 
FUNCTION {TPana. )CREATE( Ob jact: TObJact; haap: THaap; itsPanal: TPanal; itslnnarRect: Rect; 

itsViaua(fl.Ract: LRact): TPanr, 
PROCEDIA^ {TPana. }HavaViau( viau: TViau); 

(Attributes} 
PROCEDURE {TPana. }GatScrollLi«lts( VAR ViawadLRact, scroll ablaLRact: LRact); 
{PROCEDURE TPana. SatZoo«Factor(zoo«NuiMrator, zoonOanoainator Point);} 

{Sal acting} ^ 

PROCEDURE {TPana. }Hou$aTrack(aPha$a: THousaPhasa; wousaPt: Point); 
{assuMas laousaPt is in tha pana' s innarRact} 

{Cursor tracking} 
FUNCTION {TPana. }CursorAt(aousaPt: Point) 



{prSceuire 



TCursorNuabar, 
TPana. Rafrash( rAct ions: TActions; hlghTransit: THighTransit); } 

{TPana. }Rasiza(nauInnaxRact: Ract; vhs: VHSalact); 

{Scrolling} 
PROCEDURE {TPana. } Scroll By( VAR daltaLPt: LPoint); 

{NOTE: daltaLPt is NOT changad; also movas tha thufflb(s)} 
PROCEDURE {TPana. } Scroll ToRavaaU VAR anLRact: LRact; hhinToSaa. vMinToSaa: 

{NOTE: anLRact is NOT changed} 
END; 



INTEGER); 



THarginPad - SUBCLASS OF TPad 



{Variables} 
vieu: 

pagaNumban 
bodyPad: 



TViau; 

LONGINT; 

TBodyPad; 



(Tha vieu seen on the BODY of this page} 



{Creation/Destruction} 
FUNCTION {THarginPad. }CfKATE( Ob Jact: TObJect; heap: THaap): THarginPad; 

PROCEDURE (THarginPad. }Reuoi1<(itsVieu: TViau; itsOrigire Point; itsRes: Point; 

ItsPageNumber LONGINT; itsZoonrffactor. TScaler; itsPort: GrafPtr); 
PROCEDURE (THarginPad. }SetForf»age( itsPagaNuufcar. LONGINT; itsOrigin: Point); 

(Display) 
(PROCEDimE THarginPad. Focus;} 

(Process termination and Debugging Assistance} 

(PROCEWJRE THarginPad. Crash; ) ^^^_^ ,.. , 

(FUNCTION THarginPad. BindHeap(act iveVsCI ip, doBind- BOOLEAN): THeap; } 

END; 

TBodyPad - SUBaASS OF TPad 

(Variables} ^ . , 

■arginPad: THarginPad; (the page shell uhose body I a«} 
nonNullBody: Rect; {the portion of the pad in the range of the Mpped vieu; 
BodyPad. innaiHect • nonNullBody unless aanual paoebreak or end-of-vieu forces 
a shortage of vieu to sap into entire inner rect) {soaieday aaka this cammni. coaprehens ibl a} 

(Great ion/Dest ruct ion} 
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FUNCTION rTBodyf>«d.}CREATE( object: TObJact; h««p: TH««p; itsHarginPad: THarginPad): TBodyPad; 

PROCEDURE {TBodyPad. jRacotiputa; 

PROCEDURE {TBodyPad. }SatFoif>aoa( ItsPagaNuMbar LONGINT); 



END; 



TBodyPad. Focus; } 



TScreSlar - SUBCLASS OF TObJact 



(Variablas) 
scroll Bar 
band: 
sBoxID: 



TScrollBar, 
TBand; 
TSBox ID; 



tha scroll bar of which it is part} 

tha objact that can raspond to scroll events} 

the scroll-bar-1 ibrary representation} 



(Creat ion/Dest ruct ion} 
FUNCTION {TScroller.}CREATE( object: TObject; heap: THeap: itsScroUBan TScrollBar itsM TSBoxID) 

: TScroller 
{PROCEDURE TScroller. Free;} 



[Attributes} 
PROCEDURE 
FUNCTION 
PROCEDURE 
FUNCTION 

(Buttoning} 
PROCEDURE 



TScroller. }GetSize(UAR boxRect: Rect); 



TScroller 
TScroller. 
TScroller 



Scroll Dir WSelect; 
SetSize(ounerRect: Rect); 
ThUMbRange: INTEGER; 



{TScroller. }TrackSkeuer(iiiousePt: Point; VAR neuSkurCd: INTEGER; 
VAR scroller, prevScroller TScroller); 
PROCEDURE {TScroller. }TrackThueb(nousePt: Point; VAR oldThuit)Pos, neuThunbPos: INTEGER); 

{Display} 

PROCEDURE {TScroller. }F ill Icon( icon: TEnunlcons; fBIack: BOOI^AN); 
PROCEDURE {TScroller. }noveThunb(neuThu«bPos: INTEGER); 

{Splitting} 
PROCEDURE {TScroller. }Respl it AtCneuSkurCd: INTEGER; prevScroller TScroller); 
PROCEDURE {TScroller. }SplitAt(neuSkurCd: INTEGER; VAR nextScroller TScroller); 

END; 



TScrollBar - SUBCLASS OF TObject 



{Variables} 
firstBox: 
isVisible: 



TScroller; 
BOOLEAN; 



{the rest are foiHid via the SB Library} 
TRUE iff this scroll bar should be draun} 



{Great ion/Dest ruct ion} 
FUNCTION {TScrollBar. }CREATE( object: TObject; heap: THeap; vhs: VHSelect; outerRect: Rect; 

itsVisibility; BOOLEAN): TScrollBar 
PROCEDURE {TScrollBar. }ChangeV is lb ility(needsBothBars: BOOLEAN; 

bandOuterRect: Rect; itsAbil ities: TAbil it ies); 

{Buttoning} 
FimCTION {TScrollBar. }OounAt(iK>usePt: Point; VAR scroller TScroller, VAR icon: TEnutnlcons): BOOLEAN; 

{Display} 
PROCEDURE {TScrollBar. }Drau; 
PROCEDURE {TScrollBar. }Erase; 

END; 
THenuBar > SUBCLASS OF TObject {only one instance exists (aenuBar)} 



{Variables} 
isLoaded: 
mapping: 
nufflMenus: 
numCoMnands: 



ARRAY [ 1. . aaxHenus] OF BOOLEAN; 
TArray {OF TyngrCnd}; 
INTEGER; 
INTEGER; 



TRUE iff the i' th menu has been inserted} 
maps command number to menu & item indices} 
how many nanus} 
|hou many commands in all menus together] 



{Creation/Destruction} 
FUNCTION {TNenuBar. }CREATE( object: TObject; heap: THeap; itsScanner. TFileScanner): ThenuBar. 



{Attributes} 
PROCEDURE 



PROCEDURE 



THenuBar. 



THenuBar. 



CheckCcmcMumber TCmdNumber, checked: BOOLEAN); 



PROCEDURE ;THenu6ar. ; Enable(cmcmumben TCmdNumber, canBeChosen: BOOLEAN); 



BuildCmdNa«e(destCmd, tempi ateCmd: TCmdNumber; param: TPString); 
{if param is NIL. use the default} 
FUNCTION {THenuBar. }GetCmdName(cmdNumber TCmdNumber; pName: TPString): BOOLEAN; 
{returns TRUE iff cmdNumber is found (pNama will be empty); 

pName can be NIL, uhich will save the overhead of returning the 
menu item, for case where you Just want to see if it exists} 
PROCEDURE {THwiuBar.}PutCmdName(cmdNumber. TCmdrfcMber. pNamr. TPString); 

{Buttoning} 
FUNCTION {THenuBar. }CmcH<ey(ch: CHAR): TCmdNumber 
FUNCTION {THenuBar. }OounAt(mousePt: Point): TCmdNumber 

{Display} , 

IDURE (THenuBar. 



PROCEDURE . 

PROCEDURE {THenuBar. 
PROCEDURE 



Draw; 

.EndCmd; 

_ .THenuBar IHighl ightHenu{uithCmd: TCmdNumber); 

{call this when the user presses the CLEAR key for example, to highl ight 

the appropriate menu title; you should then call window. DoCommand with 

an apropriate command number. } 



{Loading) 



PROCEDURE { THenuBa r. } Del et e( menu ID: INTEGER) ; 
PROCEDURE {THenuBar. Insert(menuID, before Id: INTEGER); 
PROCEEM^ {THenuBar. } Unload; 



{For Future Use} 
FUNCTION {THenuBar. }HenuWiihIO( mwiu ID: 
END; 



INTEGER): Ptr 
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{$IFC LibraryVarslon <• 20 AND FALSE} {do it this way in c<s« m n—d it back for Papsi van ion} 
TFont - SUBCLASS OF TObJact 

{Varlablas} 



faaily: 



INTEGER; 



[Font Hanagar TFaai} 



(Craat ion/Dast ruct ion} 
}CftEi 



FUNCTION {TFont. }CftEATE( Ob Jact: TOfaJact; haap: THaap; itsFamily: INTEGER): TFont; 
OD; 



{$ENDC} 

{ aOBAL VARIABLES 

VMR 

activaUindouID: 
allouAbort: 
autoBraakPan: 
bl inkOffCantlSacs: 
bi inkOnCant ISacs: 
bouncKl ipboant 
boundOocumant: 
cancalString 
cl ickStata: 
cl ipboard: 
cl ipPrintPraf: 
cl osadBySuspand: 
cl osadDocumant: 
comarNunbarStyl a: 
count ryCoda: 
cu r rant Oocunant : 

cur rant Window: 

cursorShapa: 

dafarUpdata: 

dfltNauHaading: 

docList: 

avantTlMB: 

avantTypa: 
{$IFC fObgABC} 

fExparimanting: 

fCountHoap: 
{SENDCT 
{$IFC LibraryVorsion <- 

fonts: 
{$ENOC} 

OanCl IpPic: 

hic^aval: 

highToooI*: 

idlaTim: 

inBackg round: 

I iMboPan: 

manual BraakPen: 

marginPattam: 

manuBar 

•yProcass ID: 

myTool : 

normal Pan: 

okString: 

phrase 11 a: 

procass: 

scraanRightEdga: 
scrol I Rgn: 
stdnargins: 
suspandSuffix: 
thaBodyPad: 
thaHarginPad: 
tool Nama: 
tool Prefix: 
tool Vol uma: 
varPaga: 
varTitla: 
uordOal imitars: 



EFFECTIVELY. FIELDS OF CLASS TProcass } 



Tha ufflgrlD fiald of the active document, or 0} 

Iff TRUE, allou aborts} 

pan to use to drau automatic page breaks! 

Cent Iseconds to hide the Insertion point] 

Cent iseconds to display the insertion point} 

The cl ipboard uhose data segment is bound, or NIL} 

The document i^ose data segment is bound, or NIL} 

'The uord "Cancel" for use In buttons} 

Shifts and repeats of the last mouse click} 

The Cl ipboard document manager} 

the print-preference for the cl ipboard} 

Iff TRUE, cl osedOocument uas Just suspended} 

If not NIL, this document uas Just put auayj 

TypeStyle used for page-numbers in page-previeu} 

The country code as read from phrase file} 

The active document OR if running in background, the 

document to use; otherwise NIL} 
currentOocument. window, OR NIL} 

The cursor shape as recorded by TProcess. ChangeCursor} 
set TRUE by app to defer updating while typing} 
Default value for newly-created headings} 
The documents that are open} 
The time of the most recent Wn event} 

I The type number of the most recent UN event} 

{IF TRUE, enable zoom experimentation etc.} 

{Iff TRUE and IFC fCheckHeap, count objects once per cmd} 



TWindowID; 

BOOLEAN; 

PenState; 

LONG INT; 

LONG INT; 

TCI ipboard; 

TDocHanager, 

STRINGr20]; 

TCI ickState; 

TCI ipboard; 

TPrResarve; 

BOOLEAN; 

TOocManager, 

TTypeStyle; 

INTEGER; 

TDocHanager; 

TNindou; 

TCursorNumber; 

BOOLEAN; 

STRING{20); {-SW*} 

TList [OF TDocHanager}; 

LONG INT; 

INTEGER; 

BOOLEAN; 
BOOLEAN; 

20 AND FALSE} {do it this way in case we need it back for the Pepsi version} 
ARRAY [0. .maxFonts] OF TFont; 

BOOLEAN; {Iff TRUE, we are generating the Cl ipboard picture} 

ARRAY {BOOLEAN! OF THighTransit; {TRUE»>h0ffTo0n, FALSE->hOffToDim} 

ARRAY [boolean] OF THi^Transit; {TRl«->hOffToOn, FALSE->hOnToOff} 

LONGINt; {The time we finished processing the last user input} 

BOOLEAN; Iff TRUE, currently running in background} 

PenState; pen to use to fill limbo area in paginated view} 

PenState; pen to use to draw manual page breaks} 

LPattem; pattern to use to fill margins in paginated view} 

THenuBar The menus of the appl icat ion and the Cl ipboard} 

LONGINT; The OS ID of this process} 

LtMGINT; The tool number of this tool} 

PenState; pen state resulting from PenNormal} 

STRING{20I; The word "OK" for use in buttons} 

TF 11 eScanner, The Ha in Phrase File TFileScanner} 

TProcess; {The process object of this process} 

INTEGER; 

RgnHandle; 

LRect: 

ARRAY [ 1. . aaxSegments 

TBodyPad; 

THarginPad; 

STRING(67J; 

TFilePath; 

TFilePath: 

STRING{20 

STRI> 

STRir 



{♦SU*} 
{*Sil*} 



720 for Lisa 1.0 screen} 

what needs to be refreshed because of scroll} 
standard page-margins, in screen pixels} 
] OF STRING[5]; 

(current BodyPad being written to} 
current HarginPad being written to} 
The name of the tool} 

< -The prefix ' {Tnn}* of the OS path name of the tool*) 
The volume '-name-' on which the tool resides} 
The string 'PAGE', for use in heading variables} 
The string 'TITLE' for use in heading variables} 
The delimiters of a Lisa "word" in this language} 



PROCEDURE GetPrefixPartCwholeName: S255; VAR filePart: TFilePath); (•'{prefix}'*) 
FUNCTION ToolOfFtleCuholeName: S2S5): LONGINT; 
FUNCTION Tool OfProcass( process Id- LONGINT): LONGINT; 

{ Used to insert comments into the Universal Graph of Cl ipboard, so LisaDraw can understand it; 
These procedures only insert comm en t when we are generating the Universal Graph } 

{ beginning of a series of text drawing ops that should be grouped } 
PROCEDURE PicText Beg inCalignaamt: TAIignment); 



PROCEDURE PicTextEnd; 
PROCEDURE PicGipBegin; 
PROCEDURE PicGrpEnd; 

PROCEDURE InitProcess; 



end of series } 

beginning of a series of grouped objects } 

and of series } 



FIWCTION Get Time: LONGINT; , , , 

{This function returns the same "time" as is used in events (see global variable eventTime), 
and in the idle loop} 

IHPLEHENTAT ION 

{$1 LIBTK/UABC2. TEXT} {TProcess-TDocDIrectory-TDocHanager-TCl ipboard-TCommand-TCutCopyCommand- 

TPasteCommand} 

{$1 LIBTK/UABC5. TEXT} {TI«age-TView-TPaginatedView-TPageView-TPrintHanager-THeading-TSelect ion} 

{$1 LIBTK/UABC4. TEXT} {TUindow-TOlalogBox-THenuBar-TFont} 
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1645 — 

1644 — 

1645 ~ 

1646 ~ 

1647 — 

1648 — 

1649 — 

1650 — 

1651 — 

1652 — 
1655 — 



l$I L1BTK/UABC5. TEXT} (TPan«l-TB«nd-TPan«-TttarolnP«d-TBodyPacl-TScroll«r-TScrollBar) 



$1 
$1 



UABC2. TEXT 
UABC5. TEXT 
UABC4. TEXT' 
UABC5. TEXT 
) 



■ TProcess -TDocO i rect o ry-TDocHanage r-TCl ipboa rd-TCoiwnand-TCut Copy Coromand-TPas t aCotamanci} 
T Imaga-TViBu-TPaginatadVieu-TPageViau-TPrintHanager-THeading-TSel act ion) 
TUindoM-TDial ogBox-TMenuBar-TFont) 
TPanal -TBand-TPana-TMarg inPad-TBodyPad-TScrol 1 ar-TScrol 1 Bar) 



END. 
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